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LAN DS OF HAVOC A 2,000 plus screen 


‘a Arcade Adventure described as the first MEGA GAME for the 
¢ oe i. “fp Q.L. Include 9 full colour maps... the book of change... 
gy ma excellent graphics and sound. The arcade style of this game 


akes it playable b 
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CRAZY PAINTER Incredibly addictive and 


totally original arcade game. 8 levels of difficulty, hi-res 
graphics and superb music. Try to paint the floor of a really 
busy house but chase off unwanted Dogs, Snakes and Bugs - 
avoid the tins and bubbles of turps and stop the paint running 


on a unique challenge screen. £1 y) 95 


BIGH SCORE 


a CUTHBERT IN SPACE cast moving 


2.2.2 “iet-pac” type arcade game. Play the part of CUTHBERT 
looting the moronians planet. A real Zap arcade game witha 
strategic breakdown feature. 


£14.95 


HO PPE R A giant leap forward for the Q.L. and 


guaranteed to keep you ribbetted’ to your seats “FROGGER” 


type arcade game with extra £1 4 9 5 


lanes of cars and crocodiles! 


Q. L. FLI GHT Flight simulator with 9 different 


scenarios. Take off - land - refuel a light aircraft. You can 
perform aerobatics and fly from scenario to scenario. Avoid 
Power lines - Mountains and watch your fuel!!! in this realistic 


simulation. Wire line graphics. 
Release date November 1985. £1 9.95 
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Technical Helpline 


Owing to the large number of sub- 
scribers and registered readers who 
have been utilising this service, we 
have found it necessary to arrange 
for an external agency to handle all 
the queries. 

For this reason the turnaround 
time from placing a call to receiving 
an answer will be seven working 
days (anyone who has experienced a 
longer delay than this may rest 
assured that the new system will 
improve matters — Post Office will- 
ing, of course!) 

3 The number, for those who failed 
‘to obtain a copy of our Septémber 
edition, is 01-250 0350 and the line 
is available from 5.30 in the evening 
to 9.30 in the morning (ie, outside 
working hours) and at weekends. 
Please remember, however, that the 
service is only open to QL User’s 
subscribers (new and old), and those 
who receive the quarterly QL User 
Newsletter (readers who completed 
a registration card before the end of 
May 1985). 


Transposition 85 


Inexplicably, last month we man- 
aged to swap two listings and put 
them in the wrong places. To rectify 
matters just transpose Listing 2 on 
p.32 (Warm Reset) with Listing 2 on 
| p-11 (ROMblings) — October edition. 
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With an Epson RxX1@@+ this would never Nave har 


Up to 233 characters per line; NLQ (optional); 100 cps; 
sheet fdr (optional); Parallel (standard); Serial and IEEE (optional). / 


RX 100+. Fast. Very good print. Very, very, very wide. £399 (+ VAT). 
EPSON 


Further Leaps? 


Where do we go from here? 
This question seems foremost 
in the minds of Sinclair 
observers everywhere. A half- 
price QL leaves a vacuum at 
one end of the market whilst - 
the Spectrum, despite the 
addition of a new keyboard, 
begins to look long in the tooth 
at the other end. 

Indications are that Sinclair 
rather untypically will 
attempt to consolidate as 
opposed to innovate — 
improving on existing 
products rather than 


The latest software, hardware and information on the QL product front. 


introducing new ones. 

A 128K Spectrum Plus is a 
certainty. According to one 
source the machine “will be 
priced at £199” and will be 
launched in the period 
“leading up to Christmas”. 
Sinclair, however, strongly 
deny this. According to 
them “no new machine will 
be launched until next 
year.” 

On the QL side, reports as 
yet unconfirmed lead us to 
expect a £350 version minus 
microdrives but with built-in 
3.5” disk drive and colour 
monitor. There is also talk of 
improvements in the 
machine’s communications 
capability and an increase in 
memory (RAM and ROM) 
which will allow a WIMPS 
system (Windows, Icons, Mice 
and PointerS) to be added to 
QDOS. 

An upmarket QL as the 
flagship of the Sinclair range 
fits in nicely. It is aimed at the 
professional home user and 


small business — a potentially 
lucrative market which 
Sinclair was the first to 
recognise, has failed to 
capture but which it is not 
prepared to cede to the likes of 
Amstrad and Atari without a 
fight. 

On the other hand, a big - 
brother to the Spectrum, 
identical in price to an 
unadorned QL seems totally 
out of context. With two 
machines in the same slot 
Sinclair would seem to be 
competing with themselves. It 
will be interesting to see 
which one comes out on top. 
The deciding factor will 
probably be the software that 
is available for each machine. 
On this score the Spectrum 
has a clear lead but for how 
long? September’s PCW show 
revealed a number of big 
software houses defecting to 
the 68000 machines, if this 
trend continues the QL 
becomes increasingly 
attractive. 


LE ———_  ——— SE eS 


Wrong Tack 


Prospero Software will shortly 
be releasing the first 
FORTRAN-77 compiler and 
not C as was wrongly reported 
by us in ‘Soft Landing’. 
Reverred by Scientists, 
beloved by engineers and 
avoided by all others, 
FORTRAN is the grandfather 
of most of computer languages 
and is still in widespread use 
today. Prospero hope that 
PRO-Fortran will open up the 
vast libraries of Fortran 
programs to low-cost 68000 
machines such as the QL and 


" WE CAN'T THINK WHY POOR OLD 


ww =o . HUMPHREYS DIDN'T USE PRO FORTRAN “ 


that then “ideas like CAD/ 
CAM workstations on every 
engineer’s desk will become a 
reality”. 

The compiler, we 
understand, will produce 
position independent object 
code, have a speed 
optimisation option and make 
full use of the machines 
registers and instruction set. 
A run-time library will 
support I/O operations and 
handle floating point 
arithmetic. The product will 
be marketed by Sinclair 
Research though its pricing is, 
as yet, undecided. 


Indemic Epidemic 


It looks as though the idea of 
supplying internal upgrades 
to a memory hungry market is 
too good to miss! Following 
Silicon Express’s lead, CST 
now offer to boost the QL’s 
internal RAM up to a massive 
512K. The operation will be 
completed over a 14 day period 
and will cost £172.50 
including VAT. The extra 
£22.50 we understand will 
enable CST to extend their 

90 day warranty to cover the 
QL’s microdrives. 

The drawback with internal 
RAM is that access times are 
shared with the QL’s video 
processor as it refreshes the 
screen. This means BOTH 
products are slower than their 
externally fitted counterparts. 
However, with savings in the 
order of 50% only a 
perfectionist would complain! 
Perhaps more important, 
unless you are in the habit of 
writing ¥2 megabyte 
programs, is a RAM disk 
driver which allows one to use 
memory as if it was a disk or 
microdrive — only very much 
faster. 

At present only Eidersoft 
with their GEM-like ICE 
package supply such a driver, 
though we suspect others will 
follow. 


The First Defector 


Firebird Software, a big gun 
in the computer games market 
will shortly release it’s first 
game for the QL. Called Booty, 
this is a ‘platform’ game set on 
a pirate ship where the player 
has to pick up, in sequence, a 
number of keys to opena 
treasure chest. 

Firebird, a subsidiary of BT, 
is only a year old but already 
has an impressive string of 
chart-toppers to its name. 
These include Gyron, Elite, 
Buggy Blast and the Demons 
of Topaz, all of which make u 
its ‘Gold Edition’. : 

Booty, however currently 
forms part of Firebird’s ‘Silver 
Edition’ budget priced 
software and is the most 
popular game in that range. 
On the QL it will retail for 
£9.95. According to Firebird’s 
Phillip Pratt the fourfold 
increase in price has to do 
with production costs 
associated with microdrives. 
However, to offset the added 
cost and make efficient use of 
available space on a cartridge 
Firebird have thrown in 
another game — Grin Wars — 
for free. 

When asked “Why the QL?” 
Mr Pratt’s reply was that 
Firebird “now recognised the 
existence of a new breed of 
games machines and that 
amongst these the QL with its 
established user base was a 
realistic proposition”. 

The release of Booty has 
been held back to coincide 
with other games coming for 
the Atari (and Amstrad) disk 
based systems. 
SSS ee 


Noted Errata 


Thanks to John Chudley of 
Tiverton, Devon for spotting 
an erroneous line in the 
listing on p.11 of last month’s 
magazine. It should have read: 
260 IF rom_ver§$(1 to 2) <> 
‘AH’ AND rom_ver$(1 TO 2) 
<> ‘JM’ AND rom_ver§$(1 
TO 2) <>‘JS’ AND rom_ 
ver$(1 TO 3) <> ‘JSU’ AND 
rom_ver$(1 TO 2) <> ‘MQ’ 
THEN PRINT “New ROM — 
contact me through QL 
User”: STOP 

And, if you haven’t already 
noted it, that listing should be 
transposed with the one on 
p.32 as outlined on the 
contents page. 
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MEDIC 


-leadersin QL expansi 
-introduceWincheste 


The MEDIC Winchester hard disk 


Nine performance-raising programs, free with 
every MEDIC disk drive system. 
(Extra memory recommended.) 


M-DESK M-TRANSFER 


WIN-A-MEDIC! 


All Sinclair QL owners are eligible for this free draw comprising IMB disk drive (720K formatted), 
—complete the entry on the coupon now, and MEDIC systemcartridge containing disk 
post before October 30th. interface and parallel port, power supply, 
The drawwill be made by Tony Tebby, authorofthe plus complete suite of MEDIC business 
MEDIC disk operating system. A fulllistofwinners programs— together with hi- res green- 

will be published in both QL User and QL World. screen monitor - will be sent to each of the 
Acomplete MEDIC system — usual price £249.95 _firsttennames drawn. 


M-SPELL M-MERGE 


M-DESK Macintosh-type single-key depression user 
interface.for instant program switching and utilities 
selection M-BASE turns Archive into a menu-driven 
database with single-key commands M-ACCOUNTS 
fully integrated sales, purchase, nominal ledgers, and 
stock control M-KEY single-key entry of user-defined 


—EE text in any program M-SPELL spelling checker 
M-MERGE personalised mailshots M-SQUEEZE file a 
compression M-BOOT sets up RAM disks in memory . 
then automatically loads pre-defined files and programs Hackwood Lane, Cliddesden, 
M-TRANSFER microdrive — disk routine. Hants RG25 2NH. 


Telephone 0256 460 692. 


To order, please tick the items you require and enter 
total order value — to include £10 p&p (£2.95 for 
orders under £125) in the box below. All prices shown 
include VAT. 

All orders must be signed. Please allow 28 days for 
delivery. 
Extra memory 


MEDIC systemcartridge with extra memory 256K £119.95 ia 
Dust Cover plus 3 adjustable feet £14.95 

Joystick £9.95 L] 
Disk pack Ten 312in disks in rigid plastic storage box £39.95 L] 


Modem* 

Add to disk interface or complete system price (not sold 
separately since connects through systemcartridge) £120.00 L] 
*not shipped until BT approved 


Complete systems 1MB disk drive (720K formatted), MEDIC 
systemcartridge inc. disk interface, parallel port, power 
supply, cables + FREE SOFTWARE £249.95 


2MB double disk drive (ea. 720K formatted) MEDIC system- 
cartridge inc. disk interface, parallel port, power supply, ; 
cables + FREE SOFTWARE £349.95 fe 


Hl-RES MONITOR 


Send now for your free 
monitor voucher, entitling you 
to a free high-resolution 
green- screen monitor with 
anti-glare screen when you 
order anew MEDIC disk drive 
system (minimum price 


£249.95) at any time up 
to May 1986. 


EE wee Senn ae a eee a 


Complete systems + extra memory 


Add to complete system price 512K £149.95 L] 
Winchester hard disk 5MB formatted, inc. interface £299.95 L] 
Professional QL keyboard Full travel keys, owner- 

installed, needs only a screwdriver £29.95 L] 
Numeric keypad Needs interface, see below £29.95 LJ 
Mouse Includes M-Paint graphics program, needs 

interface, see below £49.95 LJ 
Interface For numeric keypad and mouse (only one 

needed to connect both items via ROM port) £14.95 al 
Printer Cable QL parallel printer cable £14.95L] 


Please send me my free monitor voucher 
pial Please enter my name in the ‘WIN-A-MEDIC’ Draw 


*you do not need to order items to participate. But all name and address details must be 
completed (No signature necessary). 


Please send me the items | have ticked on this order form and 
| agree to pay cash on delivery. | am over 18. 

Total order value (inc p&p) 

Signature 

NAME 

ADDRESS 


TELERRONE Areatcode) == * (No) eae 
All sections must be completed, PLEASE USE BLOCK CAPITALS. 


William Owen sums up the State of 
the Art on the QL. 


Anyone who has used a painting 
system on a computer will know of 
the immediate sense of power, skill, 
and — possibly — delusion of artistic 
prowess it gives. The software pro- 
vides the technique, not the talent. 

But painting by computer is hard- 
ly painting by numbers. The sudden 
and surprising ability to draw a 
perfect circle simply releases the 
imagination — painting by numbers 
locks it up. The finest graphics 
generators have up to a million 
colours and dozens of textures) and 
brush strokes, and some enable the 
construction of 3D solid models, in 
colour, with shadowing calculated 
from any light direction and density. 
The latter requires a lot of memory 
and a lot of processing time, but you 
don’t need a mainframe or mini to 
generate complex, static graphic 
forms: a QL will suffice. 

Any object — or idea — that re- 
quires two or three dimensional 
representation can be modelled by a 
computer with greater speed, accu- 
racy and realism than traditional 
methods — pen on paper, ink on 
canvas. Computer graphics pack- 
ages, and there are more than one 
type, provide the artist with a flex 
ible drawing or painting tool and the 
designer with drawing board, pen, 
rule, scale, compass and eraser. 

The most advanced computer 
aided design (CAD) systems will 
also include the ability to construct 
three dimensional models from a 2D 
plan and elevation; automatic 
dimensioning of each part of the 
plan from scale; libraries of standard 
components which can be with- 
drawn and placed at will on the 
design: and sometimes knowledge 
based systems which will, for exam- 
ple, determine the correct value of 
components for a given electronic 
circuit, or calculate whether a pre- 
stressed. concrete bridge can stand 
load to be impared upon it in real 
ife 

Exactly what the'state of the art is 
in mass market graphics packages is 
hard to fathom. The reason for this 
is that the newest mi 
but not all, of the:power of last year’s 
mini’s.- How mimated images 
(moving pict -a8 opposed to sim- 
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ple sprites) and three dimensional 
modelling seem to be the most likely 
developments. Neither are likely to 
appear on the QL. 

As regards animation the 68008 
simply cannot cope. It would require 
a dedicated custom chip like on the 
Amiga to take the pressure off the 
main processor and speed up draw- 
ing. Here animation is accomplished 
through a simple set of subroutine 
calls that draw a linked list of items 
in quick succession across the 
screen: for.example making a sphere 
rotate and move along its axis. 

Similarly, without the virtually 
inexhaustible amount of memory 
afforded by hard disks 3D modelling 
is not a practical proposition. Even 
simple wire frame drawing tech- 
niques, with or without hidden line 
removal, are voracious consumers of 
memory. Indeed, to find a competent 
software package that will give a 3D 
drawing based on a plan and eleva- 
tion you will need to go to the very 


top of the desk top PC range with 
costs escalating into five figures. 

So what should you expect from 
first class, micro-based, two dimen- 
sional design or painting software? 

QL. graphics packages should be 
measured against the best available 
for low-cost 16-bit and 8-bit micros. 
The QL is after all a high resolution 
computer with a capable processor. 
Good: benchmarks are, for graphics, 
GEM Paint, and for CAD, Robocom’s 
Bitstik 2. These packages include all 
of the essential features and intro- 
duce most of the new concepts in 
electronic design and drawing. 

GEM Paint, available from Digi- 
tal Research on the IBM PC, Apricot 
and Atari 520ST, is the kind of 
software for which you only need to 
reach for the manual when contem- 
plating advanced operations. It’s 
almost entirely icon-based; that is, 
all the commands, colours, textures 
etc are captured by the click of a 
mouse. Ease of use is not an essen- 


|e 1@eN 
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Intelligent error 
messages 


ENG ValaRe@Ni IM Ean ie 


TJ Muttitasking clock 
7} full range of 
QDOS functions 


ICE makes all of the day to day tedious computer housekeeping (eg. deleting and copying files) you need 
to do simplicity itself. By using pictures (Icons) to represent the functions you want and the files on your disk 
or microdrive, all you have to do is point and click, instead of typing reams of mysterious commands. ICE Folders allow action 
is extremely powerful and can take action on many files at the same time, saving you hours each week! ICE on multiple files 
gives you an inbuilt multitasking clock, calendar and calculator for up to the minute efficiency, 
ICE also includes the powerful CHOice tasking software that allows you fo run several programs 
simultaneously! 


ICE comes on EPROM cartridge that plugs into the cartridge ROM port 
at the rear of the QL. 


ICE uses next to no user RAM! /*VICE is always available to the user instantly no 

need to load from microdrive or disk VICE is fully compatible with the Psion™ 

applications and most QL commercial software MICE is fully compatible with 
Superbasic programs and can be called from Superbasic / ICE is fully compatible 
with microdrives, disk drives and RAM disks MBICE can be used in conjunction with Multitask.c number of 


programs (memory 


the cursor keys, a joystick ora mouse ICE is multitasking! | ICE is only £49.95. ermitting) using CHOice 


asking software with 
mailmerge 


oaoaoa00 
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QL JOYSTICKS 


Ideal for ICE or QL Games 


Q@SPELL 


Qspell is G proof reader and solve crosswords, anagrams 


* Puzzle section allows you to 


Designed by John Knight Publicity Ltd, London. 
| enclose a cheque/PO/card no. for £ ..........0 


= 
g 
2 
z 
spelling checker for QUILL™ and puzzles £2 all Brcheed wiih q ; 
wi ony advanced features. pabicfelt ia eR RuleIoHle program cco & 
* word dictionary : QL SURESHOT Fully Micro 3 i 
including 1000 user words.” x Fully Menu Driven with Help switched. Now only £49.95 € : 
* Create your Own dictionary ‘files @L QUICKSHOT Ideal for & 
* Multitasking Quill Editor." Amazing Value at £49.95 Games £43.95 EZ ae 
ee 3 8 ish or 6 
a . : & ee 5 
ARCHIVER £48.95 g 5 ai ES 
Archiver is a collection of S sign oi i2 2 
business programs for Psion RE a i ve 
ARCHIVE™, {89 @® | :2 8 
xInvoicing «Stock Control 1 TEST ee B24 aS ia & 
* Mailing « Appointments Se§ ii iSO | ieee 
Archiver lets you use the real power of jgce iss tee ; iv F 
the Archive Database Sse 16 igs: 4 8 
You may change the Archiver programs nl {OL ~O 2050 H 10 < 
to your own taste easily EY 2 voUnosa= : ipo 2 
Archiver comes with a 48 Be Oe ooSaRo ig @ 
page er and technical : : . ce 5 2 att hoes H ; 2 3 
manual. 68008 Arcade Action |f@Js>—: Hy: i2 9 
Please write or telephone for = *@L ARCHIVE BOOK ZAPPER 6 Wiegon conte cre |i G20OKSS iY fears 
full details Archive mate siniiel an ideal liens in this multi-level 100% |PJ5223%=55 09 938 3 
NOW WITH MAILMERGE companion text to ARCHIVER Only -machine code QL arcade gam 2¢OUaesnges ‘ogo: 
£14.95 from Eidersott TviMoniicor i a 8 oss%ag 32 3 
EIDERSOFT 0708 852647 Telex 8951807 _ CursoriJoystick £10.95 


Trade Enquiries Welcome 


Psion, Quill and Archive are trademarks of Psion Ltd. 


tial feature but adds greatly to the 
pleasure of using a painting pack- 
age; it allows quicker work and 
endless experimentation. 

Now is the time to introduce a new 
concept to artists: the dynamic, rub- 
ber banded cursor. The tool is well 
named. Imagine a- grid of pins 
around which rubber bands can be 
stretched. The user selects a point on 
the screen, takes the cursor away 
from it in any direction, and a line, 
dynamic because it moves with the 
cursor, appears between the cursor 
and the original point. Rubber band- 
ing is a fast and easy way to create 
both regular and irregular shapes 
which can then be filled with colour, 
texture, or both. 

Rubber bands are new to artists, 
brushes are not. A good painting 
package will have a wide selection of 
brush widths and textures, possibly 
an ‘air brush’, and it will have 
automatic ‘fill’ — filling an area 
within a closed boundary with col- 
our. There is also the ‘pencil’ which 
draws in a freeform fashion under 


and other 
the user:£ 
at any p 


mouse driven rubber that moves 
around the screen erasing unwanted 
areas; and more importantly, a fa- 
cility that undoes the previous com- 
mand. For example, if the user 
attempts to fill an area with an 
incomplete boundary, the colour can 
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leak’ out and destroy the rest of the 
‘work. The Undo command insures 
against such a calamity. 

Those are the basic tools you 
should expect to see, but Gem Draw 
has a number of other advanced 
features. Zoom enables the user to 


capture any part of the picture and 
magnify it to the full size of the 
screen in order to carry out detailed 
work. Areas of the screen can be 
moved to different positions, or 
copied any number of times. Finally, 
a drawing or section of a drawing 
can be distorted, ie, stretched or 
squashed. 

Painting packages require flex- 
ibility, speed, colour and texture, 
whereas in a drawing package the 
emphasis should be upon accuracy 
and attention to detail. 

Bitstik is probably the only micro- 
based CAD package that offers all of 
the facilities expected by a pro- 
fessional. Like Gem Draw it is icon 
based and mouse, or rather joystick 
driven. As well as a dynamic rubber 
banded cursor (a feature which is 
more important in a drawing pack- 
age anyway), fill, colour, etc, it has a 
number of more impressive features. 
Zoom allows the user to magnify a 


“gketchpad is a 
strange name Tor 
what purports to 


section of an image an infinite num- 
ber of times to obtain incredibly 
precise detail. Each drawing can be 
given a grid around which the cursor 
jumps in steps to ensure geometric 
accuracy. Measurements are gener- 
ated automatically from a scale by 
the ‘auto-dimensioning’ facility. 
There is a range of adjustable curves 


an 
aCCurate wor 4 


available to replicate the traditional 
draughtsman’s tool. Angles can be 
locked into place at a given degree. 
Finally, there is an extensive library 
of graphic forms which can be added 
to by the user — what you might call 
electronic Letraset. 

So can the QL offer anything like 
these two packages? The short 
answer is no. Most of the software 
available for the QL doesn’t do the 
machine justice, although a couple 
of packages come close. 

MPaint, by Medic Datasystems is 
the painting package that comes 
nearest to Gem Paint for ease of use, 
though it doesn’t utilise the QL’s 
graphics ability properly. There are 
only four colours available: black, 
white, red and green; these colours 
can be stippled (theré are 126. :sti- 
ples) and mixed; and there is a 
useful-and. effective facility to 
change. the colour mix of the:entire 


the side and bottom 
The menus includ 
Epson FX80 screen..dump); store 
cursor (to choose the type of cursor 
required); shade; stiples; help (lim- 
ited); and shapes. Shapes, which can 
be filled, include circle, triangle, 
square and pentagon, the sizes of 
which are defined by the user. There 
is no facility to fill shapes drawn 
with the brushes or pencil. 

There are six standard brush 
sizes, and a range of unusual brush 
forms made up of rows of dots, giving 
the effect of three to five pens 
used together. These brushes force 
the user into an interesting style 


reminiscent of 60’s wire and 
colourfield paintings. 

A standard blackboard eraser is 
available, and the essential ‘undo 
last command’. But there is no 
elastic banding, no zoom, and no 
grid. MPaint is a joy to use but don’t 
expect to do any accurate work. 

Talent’s Graphiql, now sold under 
the Sinclair label as QL Paint, is a 
world away from MPaint. It’s a devil 
to use, but then the artist must 
suffer for his genius. Graphiql has 
every facility imaginable, but all are 
accessed via command codes rather 
than icons. Inexperienced users will 
have a manual by their side for the 
first few weeks. 

Graphiq] uses eight colours which, 
in the XOR mode can be mixed (laid 
over one another) and textures 
which the user can define pixel by 
pixel. The QL’s flash feature:is also 


cursor. There is an airbrush, but no. 
- eluded in list can be defined by the 
‘user from SuperBasic — a full listing 


other standard brushes: lines are¢ 
drawn by. plotting from’ point. 
point. Irregular. a ect 
areas can be defined and filled with 
colour or texture. Sections of the 
drawing can be copied, reflected on 
the horizontal or vertical plane, 
rotated or moved. 

It is difficult to do justice to the 
many and varied commands of 
Graphiq] in so short a space. Suffice 
to say that with Graphiql anything 


is possible, but not necessarily easily 
achieved, and to add to that, draw- 
ings can be included within Super- 
Basic programs, and that Talent 
intend to add an animation facility 
in a future version, to be used for 
designing animated sequences such 
as explosions, or moving characters. 

That leaves Paintmaster — an 
inferior package — Sketchpad, and 
QLCAD. QLCAD is not quite what it 
sounds. It is not a straightforward 


ectangular 


computer aided design package: it is 
an electronic circuit designer. 


. QLCAD is easy to use software, no 


frills but all the essential prere- 
quisites. Circuits are drawn on a 


-grid using a library of 66 component 
_ symbols: capacitors, diodes, transis- 
“<tors, ICs, op amps, speakers, mi- 


‘ophones, earths, etc. Any not in- 


of the software is included in the 
manual. Four colours are available. 
Sketchpad is a cross betwen 
Graphiq] and MPaint, in that there 
is a limited degree of help from icons 
and quite extensive drawing, rather 
than painting facilities. It is sold 
primarily as a CAD package but 


“Suffice to say 


t with : 
pashan anything 
is possible - - - 
And drawings can 
be included 
within Super- 


toaddan 
animation facility 


in a future 
version.” 


comes nowhere near the _ profes- 
sionalism of Bitstik. Applications 
suggested in the manual include 
circuit diagrams, layout design, en- 
gineering drawings and games 
screens. 

A grid is available, the size of 
which can be defined by the user, 
which promotes a degree of accu- 
racy. Window sizes and shapes can 
be defined. Points at either end of a 
line are plotted out by the cursor 
without a visible elastic line. The 
system can draw circles, triangles, 


rectangles, ellipses and arcs of user- 
defined size. There are eight text 
sizes in four colour mode, and four in 
eight colour mode. Defined objects 
can be moved and deleted, areas. 
filled with colour and stiples. There 
are no brushes, only a ‘pencil’ fa- 
cility ‘which should be used sparing- 
ly because it uses a large amount of 
memory’. Screens can be dumped to 
Epson compatible printers. 

Sketchpad is a strange name for 
what purports to be a CAD package. 
The system is caught between four 
stools. It can’t decide whether to be 
user friendly or multi-featured, a 
CAD package or a painting package. 

Paint Master, finally, will allow 
you to master very little. It is a wax 
crayon to Graphiql’s box of oils. Two 
unimaginative demonstration 
screens give an accurate impression 
of Paint Master’s limitations. For 
some reason it uses only four colours 
in eight colour mode. It will draw a 
circle, an arc, a rectangle, a line, and 
a ‘box’. It has a grid, a stipple 
generator, an eraser. All that could 
easily be achieved on a Spectrum, 
where Paint Master would feel much 
more at home. 


house respo: 
routines to. pri 
high resolution plotter? Wh 
com first launched the Bitstik on the 
BBC micro this was one rather 
essential item it forgot: and all 
artists and designers should remem- 
ber that, to do justice to their work, a 
colour printer or plotter, or at the 
very least a camera, is the peripher- 
al of the hour. 
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This is the spot where we turn 
the magazine over to you, our 
readers. We welcome any 
comments, criticisms or 
anecdotes about either the QL 
or QL User. The address to 
send your letters is: Open 
Channel, QL User, Priory 
Court, 30-32 Farringdon 
Lane, London EC1R 3AU 


DEMOnic Disruption 


I expect that everyone has 
noticed the QL demo program 
running on most display 
models. However, whilst 
trying to stop the program to 
get a better look at the screen 
picture from ‘Caverns’ I 
discovered something quite 
amusing. Try pressing 
<CTRL+ALT+7> and the 
expected WON’T happen. 
Incidentally, you can freeze 
the program by pressing 
<CTRL+F5>. 

Richard Gray 

Rugby 


Post Haste 


After reading your review of 
QL Cavern I waited patiently 
for it to arrive in W H Smiths. 
After two months I had had 
enough and I decided to mail 
order a copy from one of your 
advertisers instead and 
received it promptly a week 
later. 

At first ‘QL Cavern’ was a 
challenge and a welcome relief 
frora programming. But then I 
discovered a few annoying 
anomalies. On screen 10 if you 
try to cross over into screen 11 
from the bottom right-hand 
corner — flying too low will 
result in the loss of all your 
hard-earned lives. The same 
happens on screen 46 — crawl 
on to the 2nd detonator 
located far right. 


However, whilst lam 
prepared to forgive these 
niggles QL cavern does have 
one major flaw. It’s far too 
easy! 

R Hartell 
Pontypridd 


Same Old Story 


Having been bitten once by 
the “28 delivery” come-on — 
when I ordered my QL in 
February last year — you 
might think I would be twice 
shy. But no! I’ve been hooked 
once more, this time it’s Medic 
Datasystems, whose QL 
expansion system ordered 
June 27 on the strength of 
advertised guarantees of 
delivery within 28 days, and 
even immediately from stock, 
has not yet arrived 
(September 3rd). 

Telephone calls to 
remonstrate have been met 
with the excuse that supplies 
of boards to Medic itself were 
late — until last week, when I 
was told it had been 
dispatched. Today, still 
without a system, I phoned to 
be told that they were too busy 
preparing for the PCW show 
to meet orders! 

When I suggested that this 
excuse was inadequate, the 
woman at the other end 
sounded quite put out. There 
was nothing she could do 
about it and I would (“jolly 
well” she didn’t quite say) 
have to wait until next week 
or have my money returned. I 
feebly opted to wait yet again. 
I wouldn’t have earned any 
interest on the cash, anyway: 
I’m paying it — it’s a bank 
loan. 

Simon Reynolds 
Earlsfield 


Whether by phone or by letter 
the message about Medic is 
clear. Quite simply, they are 
giving the entire QL market, 
which is predominantly mail 
order, a bad name. Whilst 
their hardware works and 
works well, it takes ages to 
arrive and has only recently 
been properly boxed. 
Furthermore, aside from 
M-PAINT (the only package 
so far submitted for review), 
most of their advertised 


software appears to be 
unfinished. For example, 
copies of M-Cosmic, 
M-Treasure, M-Cruncher and 
M-Metropolis sent in by 
disgruntled readers failed to 
load at all. As for nine free 
packages with their 
hardware, if anybody has seen 
them working — please let us 
know! 

Itis a crying shame that a 
company with so many good 
ideas for the QL seems 
incapable of getting its act 
together. Yet perhaps the 
worst thing about a situation 
like this is that the sins of one 
supplier are often visited upon 
the rest. This is quite unfair. 
So in an effort to redress the 
balance QL User welcomes 
any telephone enquiries from 
readers prior to purchase, to 
ascertain whether any 
complaints have been made 
about a company. 


QL Lock Up 


David Hawley’s letter 
(August) could easily have 
been written by myself; I 
overcame many of the 
microdrive problems by 
following previous advice in 
QL User to use a mains filter, 
but an apparent ‘overheating’ 
problem causes lock-ups, and I 
too cannot afford to be without 
my QL for an extended period. 
[have written to Sinclair 
Research suggesting that the 
company should provide some 
QLs to selected dealers as part 
of an ‘exchange maintenance’ 
scheme for existing users. I for 
one would be prepared to pay a 
reasonable price for the loan of 
a machine while my own was 
being repaired. Is there likely 
to be adequate support 
amongst readers for such a 
scheme? 
David J Howard 
Herne Bay, Kent 


In our experience the QLs 
only freeze when there’s a 
tight deadline and keys are 
being hammered for all they 
are worth. 

As for overheating, 
however, we’ve found no such 
problems (yet!). 
Consequently, it may be an 
idea to look elsewhere for your 


fault. Aside from power 
spikes, a common source of 
lock-ups is a ‘leaky’ cable - 
monitor or printer type. 
Borrow a friend’s and see if 
things improve. 

Even with the low price, the 
exchange scheme seems a 
good idea. Certainly, in the 
(very unlikely) event that all 
five QLs used to run this 
magazine broke down it would 
be a disaster if no 
replacements could be found. 


Something Old... 


A few weeks ago I bought a 
new QL, which I have been 
satisfied with. However, I was 
disappointed to find that this 
has QDOS 1.02, whereas a 
friend’s, which was bought a 
year ago, has QDOS 1.03. 
Clearly mine is an old 
machine, and I wonder if I 
have a valid cause for 
complaint. There seems 
nothing wrong with it, but I 
bought an early Spectrum, on 
which only after some use did 
I discover software bugs. 

G Rutter 

Maida Vale 


As many people will be 
contemplating buying QLs 
over the Christmas period it 
seems like a good idea to set 
the record straight. 

When buying a QL you 
should check that you have 
version ‘JM’ or, even better, 
IS’ of the ROM or versions 
2.00 or more (ie 2.03) of 
Psion’s packages. To find out 
about the ROM simply type 
PRINT VERS$. As regards 
Psion’s packages, load each in 
turn and check the opening 
screen. 


Pen Pal 


Since QLs have only been 
available in the USA for less 
than a month I ama very new 
QL User. I read with great 
interest the June, July and 
August issues of QL User 
which I obtained from Curry 
Computer. After reading these 
magazines I was struck with 
some thoughts which may be 
of interest to peripherals 
manufacturers. 
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Unfortunately it looks like 
we are in for the great ‘hang- 
it-off-the-side’ parade just as 
we have seen on other 
computers which do not have 
internal expansion slots. 
Please, please someone use 
some ingenuity and save us 
from a desk that looks like a 
spaghetti junction. 

Also why all the disk 
drives? How about a mouse, 
light pen and internally fitted 
expansion? 

Finally, in closing let me 
say that I was impressed by 
your objectivity which is 
unusual for a dedicated- 
product magazine. 

Lance Presnall 
California 


a eT: 


All Clear 


I was happy to find the article 
“Dipping In” in the September 
issue as I am one of the many 
who use an EP44 as a printer 
with his QL. I also use the 
Sinclair RS232 lead that was 
supplied by the Brussels 
dealer from whom I purchased 
both pieces of equipment. The 
interface has worked without 
any problems for some five 
months. Now, having read 
that the Sinclair lead needs 
modifying in order to avoid 
disastrous consequences. I am 
concerned that I may be 
damaging either or both 
pieces of equipment by using 
what, so far as Iam aware, is 
an unmodified lead. 


My QLis version JM witha 
QWERTY keyboard. The 
EP44 has an AZERTY 
keyboard. Thanks to editing 
the driver lines as 
recommended I can now print 
underlining. I still cannot get 
the “pound” sign to print. My 
EP44 has such a sign; the QL 
keyboard does not. I therefore 
cannot edit the 
TRANSLATE! code in my 
Psion driver. 

R M Henderson 
Andorra 


We can only assume that in 
selling both items of 
equipment your Brussels 
dealer has supplied you with a 
dedicated lead and not the 
RS232 cable early users 
received free with their QLs. 
Ifthe cable has worked for five 
months then we can see no 
reason why it should not 
continue to do so. 

It seems remarkable that 
you have a version JM QL and 
yet no <£> sign unless it is 
one of the foreign adapted 
machines. Anyway you can 
reprogram any key to produce 
the sign simply by entering its 
code followed by an EP44 code 
which for <£> is 156. For 
example, enter TRANSLATE2 
127,156 and every time you 
press the copyright <©> 
symbol a pound sign will 
print. Ifyou look under 
“Character Set” in Concepts 
section of your manual you 
will find all the QL codes you 
require. 


A PET 2001? I'll give you two cleaning stones or agoldfish. 


NEXT 
MONTH 


GAMES GALORE 


They said it couldn’t be done, those sceptics of 
the QL and all it’s achieved, but we knew better 
and next month sees the fruits of several weeks 

slaving over a hot joystick. 

If you’ve held back from buying a QL for lack of 
entertainment value, or just want to know 
more about the diversity of games available, 
then DON’T MISS IT! 


Buyer’s Guide 
A guide to buying what? Not different QL 
models as there is only one (at the moment!). 
No, this is a guide to all the hardware that has 
been, or is soon to be, released for the QL— you 
name it, we’ve included it. 


Spectrum Connections III 
The third in our series on Spectrum/QL 
communications and a boon to all database 


users. 

We outline the necessary leads, connections 

and software to copy a Spectrum database to 
the QL’s Archive. 


errr 
Progs Special 


We've been saving some really amazing readers 
programs in order to present a special 
Christmas selection. So, you'll have plenty to 
get your teeth into once the more usual 
gastronomic delights associated with the 
festive season begin to lose their appeal. 


a cae” ald 
PLUS 


The final section of our exclusive, three volume 
QL Owner’s Manual. 


ALL INSIDE THE 
December Edition 
ON SALE 21st NOVEMBER 


Contents subject to late revision 
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Now, you can build 
a OL system with 


Si clieir peripherals 


sinclair ||| 


Vision 
QL 


The optimum partner for business es 


personal use. 100 cps (draft)/20 cps (NLQ). cS 2 
New technology Letter Quality, QL matching s2 
with RS232 interface & cable 


Improved Software & 5 free games 


ton) Xoonbsbon boner 


/— a 
‘ 


-Q-CONNECT 


‘andata 
een £199 


D, Density Disk Interface £1 10 
D/Drive 1 3.5"+PSU £175 


Dual 2X720K 3.5” with 
Interface, Power & Software. 


4 Systems, 68 Foxwood Close, § 
ao: Middlesex TW13 7DL Nes 


\ 

is 7 844 1399 EN 

| es ee Price Total 

| warns ; Bs 


SPECIAL 
10 Cartridges 
in Tidy box 


Get a Free blank cartridge 
| with every title purchased 


| | i je 
i ee A A A A A : £34.90 20 Cartridges in Tidy box 


68 FOXWOOD CLOSE, FELTHAM, MIDDLESEX TW13 7DL TEL: 01-844 1399 


(| QL-CAVERN ... 
MICRODEAL HOPPER.. { 
MICRODEAL CUTHBERT IN SPACE £13 
PSION MATCH POINT............s-ccc.-. £15 
HYPODRIVE.... £15 
MICRODEAL LANDS OF HAVOC... 
PSION CHESS....... : 
TALENT WEST...... 


(LANGUAGES 
METACOMCO ASSEMBLER... 
METACOMCO BCPL...n...-ne 
METACOMCO LISP... 
METACOMCO PASCAL 0 
MONITOR DISSEMBLER.. 


CASH TRADER w.........:cscccsescessrceets 
DECISION MAKER.. 

PROJECT PLANNER. 
ENTREPRENEUR... : 

QL HOME FINANCE (BUZZ) 
TYPING TUTOR... 
EIDERSOFT ARCHIVER Poncihe 
INTERGRATED ACCOUNTS ....ssossen 


QL TOOLKIT... 

FORTH........... ee 
DIGITAL BASIC. COMPILER ... 
METACOMCO ‘C’... 


Quazimodo ( £12 CARTRIDGE DOCTOR... 


EIDERSOFT ZAPPER .....soscsoosesvn 
EIDERSOFT QUART so sooovsvro 


Area Radar Controller (1 £12 


Space Paranoids (« £12 
Night Nurse (« £12. 
Galactic Invaders/Star Guard (/ £1 


No body gives vous DIL. more than 4 Systems 


Sinctair, QL are Registered Trade Marks of Sinclair Research Limited 


Carer He, 


A mildly irreverent 
introduction to the QL, written 
especially for the newcomer 
to computing, by 

Christopher Sherwood. 


Let’s assume that you have 
either just bought a brand new 
QL and bundled software, or 
are contemplating same in the 
near future. For those 
completely new to computing, 
opening up the QL package is 
a daunting affair — the 
manual resembles ‘War and 
Peace’, there seems to be an 
inordinate number of wires for 
such a slimline machine and 
there’s a sinister looking black 
box hiding in one corner. 

Contrary to what might be 
expected, the beginner’s next 
step should definitely not be to 
open up the manual. This 
hefty tome is best left well 
away from the QL — for the 
first week at least — save it 
should lead to premature 
ageing and other stress- 
related disorders. Yes, the 
manual supplied with the QL 
is one of those most hated of 
literary works — Ode to the 
Technical Author — and 
beginners are well advised to 
steer clear of it for as long as 
possible. 


First Steps 

The first step then, after 
unpacking everything, is to 
put the cable terminated with 
small jack plugs back into the 
box — it’s not needed now and 
is probably best forgotten. 
Next, plug in two of the four 
plastic feet on the underside of 
the QL (towards the back) — 
the other two are a waste of 
time and should also go back 
into the box. 


OK...Before 


The one thing missing from 


ea ll 


monitor, so in keeping with 
machines like the Commodore 
64 and Spectrum a standard 
TV set is required. Here’s 
where the aerial lead supplied 
comes in — one end plugged 
into the QL’s UHF socket and 
the other into the aerial socket 
on the TV (it won’t do any 
harm for owners of monitors to 
check out their QL on the TV 
first). 

Now plug the power supply 
(that black box) into the 
mains, but not the computer 
yet — some of these rather 
temperamental beasts seek 
their vocation as trainee 
worker bees (they buzz). If the 
power supply you’ve got is one 
of these (and we’re talking 
about a fairly loud grating 
buzz), then it should be 
replaced now. 

Assuming everything to be 
OK, plug the power supply 
lead into the QL socket 
marked Power, press the 
square reset button on the 
side of the machine and 
switch on the TV set. Tune the 
television until the QL’s set- 
up screen is shown (it’s a 
green box on top of a wider 
red one) and then press the F2 
button on the QL’s keyboard. 
The machine is now ready. 

Checking the operation of 
the QL and power supply is 
relatively simple — the power 
supply will produce a faint 
hum when working properly 
and the QL’s yellow LED will 
light in the bottom left hand 
corner of the console. 
Immediately after pressing 
F2, the left hand microdrive 
should whirr and its red LED 
light briefly. If all this 
happens and there’s still no 
picture then its the TV at fault 
— try retuning in the channel, 
which is usually close to that 
used for video recorders. 


you Quantum 


At Your Command 


When the QL is booted up (ie, 
F2 is pressed — when a TV is 
being used), the screen shows 
a large red rectangle anda 
flashing cursor below it. The 
rectangle is a display area 
called a window and is one of 
three such areas produced 
after booting up the machine. 
An identical area behind the 
red rectangle and the area in 
which the cursor moves, are 
the other two windows. 

Information (eg, printed 
text) is displayed in one of 
those three areas, designated 
#0 (cursor area), #1 (red) and 
#2 (blue area behind the red). 
Anything typed into the 
machine will appear on #0 
and anything output from the 
machine on #1 or #2. All the 
non-programmer needs to 
know is that some commands 
can access different screens 
(eg, CLS #1 means clear 
screen number one and CLS 
#2 means clear screen 
number two). The screen 
dimensions can also be 
changed so that it is possible, 
for instance, to display several 
screens with different 
information next to each 
other. This is very simplified, 
but will dg for now. 

If programming definitely 
isn’t one of your reasons for 
choosing the QL, there are not 
many commands that need to 
be known. Accessing the 
microdrives, loading and 
running programs can all be 
accomplished with the use of 
LRUN (ie, Load and RUN). 

The QL recognises the 
microdrives as MDV1_ on the 
left and MDV2_ on the right 
(don’t forget the underscore, 
it’s important). The complete 
command, then, for loading 
and running a program on 
microdrive one called 


ra 


ILLUSTRATION BY ROY INGRAM 


‘Example’, is LRUN MDV1_ 
EXAMPLE. The four Psion 
programs supplied with the 
QL can be loaded and run ina 
similar fashion, though it’s a 
good idea to make a copy of 
each of them first. 
Unfortunately, this will make 
use of four clean microdrive 
cartridges, so it’s a case of 
deciding whether to make 
back-up copies and buy some 
more microdrives, or burn 
your bridges and use the 
original programs. 

Whatever you decide, before 
using any blank microdrives 
they must be ‘formatted’ with 
the aptly named command 
FORMAT. Formatting is 
basically a means of 
arranging the tape on the 
microdrive into blocks of equal 
size to take fixed quantities of 
information in a controlled 
way. It also allows you to 
name the drive (eg, FORMAT 
MDV_TEST will format a 
microdrive cartridge inside 
the left hand microdrive slot 
and give it the name ‘Test’). 


It’s Surprising the nu 
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PUZZLE PACA 


Technical author Marcus 
Jeffery presents some of his 
favourite mind-bogglers and 
other assorted old chestnuts. 


Has anybody ever said that 
two chips make a micro. No? 
Well, I can proveit... 


This familiar form of 
substitution problem can be 
quite fun to invent, and in this 
case is very easy to solve. 
Before getting bogged down 
with logic, we can 
immediately 
enter a value for 
‘M’. Since we can 


results in ten, making the 
value of T equal to zero: 


As you can see, O+0 will give 
no carry, yet (due to the C=5 
in the result) ‘H+H’ must 
return an odd number — 
impossible, so we'll have to 
backtrack and try another 
number for ‘C’. 

Substituting the number six 
for ‘C’, assuming no carry from 
‘H+H’, we find that the value 
of ‘I’ must be two: 


We can now enter the value 
three for ‘H’ to give the 
7 six in the 


i 5 
f) es 
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ee. 
the magazine, and moving 
from addition to 
multiplication, see if you can 


deduce the one and only 
solution to: 


USER 
x QL 
JOYA YA In JD 


Now, that last one should 
have either kept pen to paper 


a little too 
difficult, you 
could always 
peek. Yes, 
literally. Try 
PEEKing the byte 
location of the 
square of the ninth prime. 
This will be the divisor in the 
above problem. By the way, 
the prime number sequence 
starts 1,.2)3!5; 7.0% 

Asa final quickie let’s 
return to our MICROCHIPs. 
We know that two CHIPs can 
make a MICRO, but why not 
try to find the maximum 
number of CHIPs possible. To 
make things relatively easy, 
you're allowed to use any 
character/digit for the 
multiplier. So, for two CHIPs, 
the obvious choice for the 
multiplier is ‘T’ (we’ve already 
worked this one out): 


M)ckO result. This into the early hours, or micros Cy eine 
ACCESSORIES | only leaves whirring away even longer. x I 
Giant SIZE | ‘P’,‘R’and‘O’ | On the other hand, if you’rea 
CHEWABLE tosettle.The | masochist,insomniac,orjusta} ~~ 7~7~77—7— 
“6 Creernn value of ‘R’ is | smart aleck, this ’ole favourite MICRO 
DIFFICULT going to be should keep you going. 
| PROBLEMS either four or iL itoibe ss MeO RRR lk - Ravin | acer eens Sayan 
—S= five, XX 8 XX 
depending tich || us al St bro ee 
upon whether, or not, ‘P+P’ 6asy Zink 
gives any carry. If we test the ».O.O. Oy). ©.©.2.O.@:),.O« S 9 
value four (ie, no carry from XXX 
‘P+P)), thentheminimums 2 | 0. D2 Grea Rie a eceaiec epee 
only substitute a single digit | remaining value for ‘P’ is five. Tag phergegea 
for each letter, the maximum | We’ve used all the other lower XXxx 
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still only gives a total of 19, to try the value five for ‘PR’. 4 0) 
proving that the value of ‘M’ The minimum remaining XXXX K 
must be one. value for ‘P’, which gives the NEKO 
We'll now try to substitute | necessary carry digit, is seven, \ iZ 
minimum numbers to find a making ‘O’ equal to four. The Pe aritl ee 
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to, five. If we try this to begin Te Guse2- 7 malevolent — peek ny if 
with, we will get the result ten computer N . 
oreleven,dependingupon | = © substituted 
whether the previous addition (eloMeGna 4 almost all the 


(H+H) gives a carry digit. 
Unfortunately, the answer 
eleven is no good, because this 
contains the same digit twice 
(ie, ‘1’) in the positions 
occupied by ‘M’ and ‘I. So, let’s 
assume that ‘H+ H’ does not 
give any carry. Thus, ‘C+C’ 


Fairly easy really. You may 
like to see if there are any 
further solutions to the above 
problem before moving on to 
the next, which is decidedly 
more difficult. In keeping with 


digits for ‘X’. 
The problem is 
to reconstruct 
theoneand — 
only possible 
calculation. 

If you find 
this last puzzle 
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offer tC we 
to the microdrive 


Speeding up your data access 
with Viglen disc drives means 
instant reliable access every time 


Specially designed to fit neatly into the case of 
the Sinclair QL, the @-Disc Interface Board and 
companion disc drives are colour-matched to 
compliment your QL computer. 


5% inch Drives iow pecveucs 
800K Single drive £139 £239 
1.6M Dual drive £239 £339 
3'2 inch Drives 

ALL 800K Single drive £149 £249 
PRICES 1.6M Dual drive £239 £339 
INCLUDE The above drives are compatible and ready to plug in and 

VAT use with all currently available QL disc interfaces. 


When bought with the disc interface they are ready to plug 
in and use — NO EXTRAS. 


Prices correct at time of going to press. Offers subject to availability, 
Even lower prices with other QL interfaces. 


Visit our showrooms 
Open Monday — Friday 9.30 - 6.00 Saturday 9.30 — 4.00 


Unit 7, Tuumpers Way ne We 
Hanwell W7 2QA ~Ktriogs nono __ eo 


BOSTON 
MANOR 


Carriage 

Please add £12.00 for carriage. Orders are 
usually despatched to you within twenty- 
four hours of receipt. 


Viglen are also major suppliers to educational 
and government establishments and welcome 


2 
Great wast RO> 


further enquiries and orders. x 
mee 
Post to: VIGLEN COMPUTER SUPPLIES. QLu11 


Unit 7, Trumpers Way, Hanwell W7 2QA. 
Credit card holders may order by telephone on 01-843 9903. 


Please send me 


| enclose Cheque/P.O. for & incl, carriage. 
] Cheques payable to Viglen Computer Supplies. 


4 


] Name: 


| Address: 


| prefer to pay by ACCESS/BARCLAYCARD 


| (delete one). Credit Cards valid only 
if signed by card holder 


] Card No: Address must be the 
‘ same as card holder 


| Signature: N= 
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silicon 1 
EXpress De yNEQ 


Title 


is Maca : a recy 
ee ie MICROVITEC MONITOR 


pe 
MONITOR 
£299 


Specifically designed for the QL 

* Offers excellent 85 column text performance 
and outstanding graphics capabilities 

* Incorporates high contrast medium 

resolution cathode ray tube 

Includes tilt and swivel mechanism 


INSIDER 
INTERFACE 


* Fits snugly into the ¢ 
connecting to the mé 

* Incorporates complet 
Toolkit utility and inc 
software utility disk 

* Full microdrive emule 

* Fast access times e. 

in under 10 seconds 

Full two year guaran 


For immediate despatch of goods you can order 
now by phoning us on Leicester (0533) 374917 
quoting your Access card number. 


Or fill in and post the coupon - no stamp 
required - and we will despatch your goods 
within l4 days 


ORDER FORM 

POST TO: Silicon Express Ltd., FREEPOST, Rothley, Leicester LE7 70Z 

Please allow 14 days for delivery of postal orders - telephone orders immediate despatch 
____ Insider Disk Interface Board @ £113.85 

___ Single 80 track double sided 3 1/2" drive @ £85.15 

___ Dual 80 track double sided 3 1/2" drive @ £156.15 

___ Single 80 track double sided 5 1/4" drive @ £85.15 

____ Dual 80 track double sided 5 1/4" drive @ £156.15 

____ Microvitec 1451 DQ3T colour monitor @ £299.00 

____ Centronics printer interface @ £29.95 


SINGLE DRIVE 
£85.15 
DUAL DRIVE 
£156.15 


| enclose cheque/postal order for £ made payable to Silicon Express Limited 
Name 


Address 


PRICES INCLUDE VAT, POST AND PACKING 


For internal memory upgrade, please send your QL RECORDED DELIVERY together with 


your remittance or Access details for £150.00 to Silicon Express Limited, Silicon House, 


‘owke Street, Rothley, Leicester. LE7 7PJ 


CENTRONICS 
PRINTER INTERFACE 
j Connects QL to any centronics 
compatible printer 
Plugs into SER1 or SER2 port 
and directly into printer 


Fully self-contained with 3 metre 
cable 


CENTRONICS 
PRINTER INTERFACE 
£29.95 


<a, 


912K INTERNALN 
MEMORY UPGRADE |] 
£150 ‘a 


INSIDER DISK 
INTERFACE CARD } 
£113.85 ‘ 


ISK 
CARD 


ase of the QL, 
in expansion port 


512K INTERNAL 
MEMORY UPGRADE 


» ROM - based Expands the QL's memory from 
udes new 128K to 512K 

: +e * Leaves the expansion slot free 
tion facility for other boards 

. boots ‘Quill 


Internally upgraded at our service 
centre - see address below 

(NOT FREEPOST) 

7 Day return service 

Contact our Sales Desk for further 
details 


>€ 


512K Insider Memory Board also available 


* Plugs into the main expansion port 
* Operates at full speed - no wait states 
£199.00 


DISK DRIVES 
* 3 1/2" single or dual 80 track 


double sided 
* 5 1/4" single or dual 80 track 
double sided 


Musical Squares 


M Squires 


Musical squares is a memory game 
where the computer builds up a tune 
note by note and you have to play it 
back at each stage. To help you 
remember the order of the notes one 
of four coloured squares light up on 
the screen as the note is played. The 
game has five levels to cater for 
everyone. 


100 REMark ##### Musical Squares 1995 #e#ee 
105 REMark #### for QL User by M Squires ##*# 
110 MODE 8:WINDOW 512, 254,0,0 

120 hi=O:CSIZE 3,0 

130 REPeat outer loop 

140 PAPER 7:BORDER 3,2:CLS 

150 sta=0:set_up 

160 sc=-liup score 

170 REPeat loop 

180 choase_note 

190 play 

200 IF storEXIT loop 

210 up_score 

220 wait 

230 END REPeat loop 

240 END REPeat outer_loop 

498 LIST 

1000 + 

1010 DEFine PROCedure set_up 

1020°REMark. = 9" “==-=== é 

1030 INK 2:AT 5,0 

1040 PRINT ‘' Choose your skill level.’ 
TOSQVPRINT ((-=-=ea=-n=cna- awn aa=a= 

1060 INK {PRINT \’ Range=! [Hard] ta 5 [Easy]’ 


1070 INK O:PRINT \' Press the number you require. ' 


1080 REPeat ch 

1090 IF KEYROW(4)=8:sk=L:EXIT ch 
1100 IF KEYROW(4)=2:s5k=2:EXIT ch 
1110 IF KEYROW(4)=2:sk=3:EXIT ch 
1120 IF KEYROW(O)=64:5k=4:EXIT ch 
1130 IF KEYROW(0)=4:5k=5:EXIT ch 
1140 END REPeat ch:CL$ 

1150 OPEN #3,scr_40x220a40x18 
1140 OPEN #4,scr_272x50a120%18 
1170 OPEN #5,scr_272x50a120x188 
1180 OPEN #4,scr_40x220a412x18 
1190 FOR i=3 TP 6 

1200 BORDER #i1,2,0 

1210 PAPER #1, 6:CLS#i 

1220 END FOR i 

1230 PAPER O:INK 7 

1240 AT 11,0sPRINT ‘7’ 

1250 AT 11,30:PRINT ‘,' 

1260 AT O,15:PRINT ‘C’ 

1270 AT 24,15:PRINT 'N’ 

1280 PAPER 7:INK 0 

1290 count=0 

1300 DIM choice(100) 

1310 END DEFine 

1320: 
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1330 DEFine PROCedure choose_note 
1340 REMark 

1350 IF count THEN 
1360 FOR num=1 TO count:sound (choice(nua)) 
1370 END IF 

1380 count=count+lichoice(count)=RND(3 TO 6) 
1390 sound(choice(count)) 

1400 END DEFine 

1410: 

1420 DEFine PROCedure play 

1430 REMark oe 

1440 FOR pl=1 TO count 

1450 REPeat chi 

1460 k=KEYROW(7) +KEYROW (2) 

1470 SELect ON k 

1480 ON k=0 

1490 GO TO 1440 

1500 ON k=2 

1510 c=3 

1520 ON k=8 

1530 c=4 

1540 ON k=64 

1550 c=5 

1560 ON k=128 

1570 c= 

1580 END SELect 

1590 IF c=choice(pl) THEN 

1600 sound{choice(pl)) 

1410 ELSE finishssto=1:EXIT pl 

4620 END IF 

1430 END FOR p) 

1440 END DEFine 

1450 : 

1660 DEFine PROCedure sound{n) 

1470 REMark 
1680 BEEP (sk#400) ,n:PAPER#n ,n-2:CLS#n:waitsPAPER 
#n 4: CLS#n 

1690 waitrwait 

1700 END DEFine 

17103 

1720 DEFine PROCedure wait 

1730 REMark 
1740 FOR i=1 TO (5k#20):NEXT i 
1750 END DEFine 

1760 : 

1770 DEFine PROCedure up score 
1780 RENark 
1790 sc=sc+l 
1800 INK 1:AT 9,9:PRINT ‘MUSICAL SQUARES’ 
1910 INK 2:AT 11,9:PRINT ‘Skill level=‘rsk 
1820 INK OsAT 13,13:PRINT ‘Score ='3s5c 
1830 IF scyhishi=sc 

1840 AT 14,9sPRINT ‘High score=';hi 

1850 END DEFine 

1860 : 

1870 DEFine PROCedure finish 

1980 REMark 

1890 FOR no=1 10.3 
1900 FOR col=0 TO 7 
1910 FOR k=3 TO G:PAPER #k,col:CLS#k 
1920 BEEP 400,RND(3 TO 4)+150 

1930 END FOR col 

1940 END FOR no 

1950 END DEFine 


Second Sight 


Barry Ashfield 


This hex loader creates a short 
multi-tasking program on mdvl_ 
called G_BACK. When executed 
(EXEC mdv1_g_back) it allows you 
to recover the last command typed 
in. If you make a mistake entering a 


command simply press 
<CTRL><G> and edit accordingly. 
Press <CTRL><X> to suspend the 
job. 

10 REMark ###4EHHERERAREEAEEAEEEEREEEEEES 

20 REMark * create code for “g back" # 

30 REMark # (c) Psientific Sftware 1985 +# 

40 REMark # for QL User * 

50 REMark #HHREEEREEAEAHEEREHERAEAEEEERES 

100 RESTORE 200 

110 start=RESPR(1024) :checksua=0 

120 FOR festart TO start+213 

130 READ byte:POKE f,byte 

140 checksum=checksumtbyte 

150 NEXT ¢ 

160 IF checksum >14816sPRINT"error in data":STOP 
170 DELETE advi_g_back 

180 SEXEC mdvi_g_back,start,214,64 

190 PRINT "g_back saved ok":STOP 

200 DATA 96,14,0,0,0,0,74,251,0,6, 103,95 

210 DATA 98,97,99, 107,112, 11,114,255 

220 DATA 116,1,78,65,36,121,0,2,128,74 

230 DATA 50,120,0,222,78,145,74, 128,103 

240 DATA 250,114,7,97,100,8,1,0,1,103,230 

250 DATA 12,1,0,10,105,0,0,152,114,3 

260 DATA 97,82,12,1,0,64,102,212,40,10 

270 DATA 216,188,0,0,0,16,42,42,0,4 

280 DATA 42,106,0,8,44,13,97, 96,103,104 

290 DATA 12,21,0,10,102,246,97,86, 103,96 

300 DATA 12,21,0,10,103,4,12,21,0,0 

S10 DATA 102,240,114,0,96,16,82, 141,186 

320 DATA 141,102,2,42,68,12,21,0,10, 103,64 

330 DATA 18,21,50,120,0,224,78,145, 74,128 

340 DATA 102,238, 96,228,71,250,0,30,112,17 

350 DATA 38, 188,9,1,0,0,55,124,0,0,0,4,23 

360 DATA 65,0,6,23,124,0,2,0,7,78,65, 78 

370 DATA 117,0,0,0,0,0,0,0,0,184,141,102,2 

380 DATA 42,69,83, 141,188,141, 78,117,114,3 

390 DATA 97,200,74,1,102,248,94,0,255, 74 

400 DATA 114,255,112,5,78,65 


Quickie 


Duncan Dunlop 


This three line procedure will clear 
the keyboard buffer of any un- 
wanted keypresses. 


100 DEFine PROCedure enpty_buffer 
110 buff=PEEK_L (163916) sPOKE_L buff+12,PEEK_L (buff 
+8) 
120 END DEFine empty_buffer 
(Continued on p.44) 
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DELTA DISK 
INTERFACE 


, a FOR THE 


SPECIAL 
PACKAGE 


UNIQUE 3 IN 1 FEATURES 
Double Density Disk Interface 
@Centronic Printer Interface 


@Memory Expansion 
Delta 64— 64 KextraRAM 
Delta 128 — 128 K extra RAM 


i Double density 

Hi Support up to 4 Drives 
i RAM Disk facility 

Hi Centronic printer interface built in @ 
Hi Compatible with Microdrive 


i Compatible with most QL Software 
iM Professional quality and reliability 
Hi Upgradable to 

DELTA 64 - 64 K RAM 
DELTA 128 - 128 K RAM 


Technology Research Limited 
Unit 18, Central Trading Estate, Staines, Middlesex TW18 4XE Tel: 0784 63547 Telex: 896691 TLXIRG 


PLEASE SEND ME: Delta Basic | Qty Delta 64 Delta 128 Qty 
Interface only £129.50 £175.00 i £199.50 £4.00 
Interface & 5%” Single drive 40 track D.S. | £245.00 | £269.00 rez £8.00 


Interface & 32” Single drive 80 track D.S. | e250.00 | | £290.00 |_| esto.00 | 
Interface & 3/2” Twin drive 80 track D.S. | 235000 | £390.00 Pia 


Name 
Address 


“All prices include VAT and apply to UK only Postcode 


QL11 


QL SOFTWARE 


PRINTERS 


TROMSFORM LTD: computer Accessories 


MAILING LIST £14.95p DOT MATRIX Ex VAT 
This program will allow you to quickly store Brother MIOOF oii. cence ouns 163.00 187.45 
and retrieve names and addresses from within [zoo )n\ 4519) ean cmeaor ana 199.00 228.85 
ARCHIVE, Features include single key functions, examikaganse te .yretenas 250.00 287.50 
prints address labels, exports files to Quill for DAISY WHEEL 
el tee also compatible with our stock- Smith Corona TP! 481.00 208.15 
GOnHOLSs 6! fe kl a SS pi ea ei ee 2 : ; 
STOCK CONTROL £14.95p BrotherblS 26 ina waders 349.44 401.85 
Keeps a complete record of all your stock 
items including retail price, trade price, ACCESSORIES 
minimum order level, items on order and many Gentronics interlace ....:...+. 26.04 29.95 
GL APPOINTMENT/ DIARY sagen 2 OOF ae 10.00 11.50 Econ LX80 
R : A E Monochrome monitor lead ..... 5.00 5:75) p 
ecords appointments dates and times, can Mi009 tractor feed 43.20 15.18 
be used as diary dentist, doctors, hairdressers, LACIOMI SSRN Wir re a : . 
service engineers. Program allows 26 users with LX tractor feed... ses 18.00 20.70 
up to 40 appointments per day. Features Microdrive cartridges .........+- 1.73 1.99 DISC-DRIVES 
include search for day, search for next spare HGS 1/2 UGISC Vicia casein. 26.08 30.00 


time, search for client’s appointment, print out 
all day appointments and many others. | 
QSPELL £19.95p 
Spelling checker for Quill supplied with 25000 
words, checks an A4 page in 24 secs, users 
dictionary and auto learns words. 

PAYROLL £63.25p 
Calculates weekly, monthly or 4 weekly payroll 
full tax calculations, coin analysis and 
payment rounding. 

INTEGRATED ACCOUNTS £89.95p 
This new program from Sinclair will allow you to 
produce full profit and loss account. 

ARCHIVE 

Our team of programmers are able to write 


Technology Research Ex VAT Inc VAT 
delta interface ...........55. 412.60 129.00 
Delta interface with 64k ram ..173.04 199.00 
Delta interface with 128k ram .. 246.52 249.00 
Single 3 1/2” 720k disc drive ....97.44 412.00 
Dual 2 1/2’ 1440k disc drives ..185.42 213.00 


Phillips 7502.Green 
monochrome monitor........ .75.00 86.25 
QL Vision colour monitor ..... 245.00 247.25 


Please add £5.75p for delivery of printers 
and monitors 


programs to your requirements, phone for 


further details. Phillips 7502 48 hour mail order service! 


TRANSFORM LTD (Dept. QL) 01-658 6350 
24, West Oak, Beckenham, Kent BR3 2EZ 


PORESC 
“ QQDEE 


Fed up with backing up OL microdrive 
cartridges? 

It’s not so much doing it but the time 
it takes ... At least five minutes ... 
Long enough to have a cup of coffee!! 


INC. VAT, POST & PACKING ON 


Fi : i: MICRODRIVE CARTRIDGE 3 
Now available, a superfast OL microdrive ° 


copier from TOTAL COMPUTABILITY. 


@ Can copy in under a minute 

@ Copy speed independant of number of 
files and file size 

@ Simple to use 

® By-passes QDOS file handling and 
accesses microdrives directly 

@ Written in 68000 machine code 

@ Only £9.95 (incl. p & p and VAT) 


QL microdrive & QDOS are trade marks of Sinclair Research Ltd. 


MAIL ORDER ONLY 

Please send cheque/PO for £9.95 to: 

TOTAL COMPUTABILITY LTD. 

PO BOX 10, BRIGHTON BN2 2TZ 
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THE QL RACING GAME! 


FROM 
ENGLISH SOFTWARE 
TEL: 061-835 1358 


The ENGLISH SOFTWARE Co. 
1 North Parade, Parsonage Gardens, 
Manchester M60 1BX 


FINANCIAL REPORT 


We balance the books and audit the latest in home and business finance software 


Home Finance 


Anybody who has had to resort to 
home finances will know what it is 
like to be an accessory after the fact. 
The circumstances may be that 
you're in the red or behind on your 
repayments. The fact is that you 
knew nothing about it until it was 
too late. Quite simply you had failed 
to keep track of what was being 
made and what was being spent. 

QL Home Finance from Buzz Soft- 
ware is designed to avert such a 
crisis. It provides an easy means of 
recording, listing and analysing in- 
come and expenditure. 

Information is recorded in much 
the same way as it is on a bank 
statement. That is, as a transaction 
on an account. Date, payee/payer, 
amount (+/—), reference no, type of 
transaction and description should 
be entered. This information will 
display in date order in groups of six 
transactions whenever the account 
is accessed along with a running 
balance. 

Existing entries may be easily 
amended and blocks deleted or 
printed out. Particularly useful, by 
pressing F1 or F2, information pre- 
viously in one field may be recalled 
alphabetically so that where it is 
repeated, the user need not type it in 
again. 

The program will support both 
single or double entry. The latter is 
effected simply by entering an ex- 
isting account name as the payee or 
payer on a transaction. The program 
will automatically post the other 
side of the entry to that account. For 


those who cannot be bothered to 
open accounts for individual debtors 
or creditors, a facility is included 
that identifies each single sided 
entry and opens an account for it. 

Standing orders appear as a separ- 
ate option on the command window. 
Orders are entered in exactly the 
same way as transactions, only here 
the program will automatically 
debit or credit the appropriate 
accounts on the due dates, either 
monthly or annually. 

The program’s analysis feature 
allows you to review balances on 
accounts or selected items of income 
and expenditure. In the latter case 
you can total or itemise transactions 
by account, type, description and 
even by operator ID (so that you can 
keep track of who entered what). A 
separate option permits the user to 
define his own groups as well as 
change or merge existing classifica- 
tions. 

For those who want to keep their 
personal finances under a tight rein, 
QL Home Finance is an attractive 
proposition. Operating procedures, 
well documented in a miniature 
manual, are easy to comprehend and 
quickly mastered. Loading times are 
short and printer installation, sim- 
ple. Backup routines and file update 
procedures allow for device names to 
be varied and in common with 
other facilities are virtually idiot- 
proof. In all, a package that will be 
welcomed by anyone who finds sift- 
ing through hastily written cheque 
stubs, dog-eared receipts and crum- 
pled credit card slips an unavoidable 
chore. 


A typical update screen on Home Finance. 


Transact 


Dialog Software’s Transact takes as 
its model the traditional manual 
bookkeeping system built around a 
nominal ledger and supported by 
books of prime entry — bank, cash 
and purchase and sales ‘day’ books. 

The accounting process is broken 
down into two distinct parts. Trans- 
action Entry and Nominal Ledger 
Update or ‘posting’. During the En- 
try process, details of payments, 
receipts, invoices and credit notes 
are entered into the appropriate 
book, amounts analysed out in full 
according to pre-defined nominal 
headings and then everything is 
saved to a ‘transaction’ file on micro- 
drive. During the Update process 
the program calculates the file total 
for each nominal heading and 
amends the balance on the appropri- 
ate account accordingly. 

From the point of view of the 
programmer the idea of storing de- 
tailed information in numerous 
transaction files and only storing 
running balances in a single 
accounts file is exceedingly attrac- 
tive as it greatly reduces memory 
overheads. However, for the user it 
complicates record keeping and 
makes it very much more difficult to 
extract meaningful reports. 

However, not only must we limit 
Transact’s user base to accountants 
but we must also limit it to those 
experienced in programming. The 
program, which incidentally is writ- 
ten entirely in SuperBasic, is par- 
ticularly unfriendly. Menus are in- 
consistent, options are slow to take 
effect, there are few helpful prompts 
and virtually no standardised key 
strokes. Even worse the program 
has a habit of crashing when some 
unforeseen input has been typed in 
or where a device, such as micro- 
drive, is acting up. To their credit 
Dialog do warn users that certain 
inputs may be fatal and suggest en- 
tering CONTinue in such an event. 
In our case this generated an ‘out of 
memory’ error. Some consolation! 

Overall, Transact does not meet 
the standards required of a compre- 
hensive business accounting system, 
but fills a gap in present market and 
may be commended for that. 


Dialog Software, 20 New Row, Lon- 
don WC2 
Transact: £34.95 


Sinclair Research, Stanhope Road, 
Camberley, Surrey 
QL — Home Finance: £24.95 
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If the data representing a picture 
can be stored in the computer’s 
memory, then it can also be manipu- 
lated. The picture can be stretched, 
twisted, rotated, moved sideways, or 
turned upside down. Colours can be 
changed and multiple copies made. 
Here we design a program, called 
EuQLid, which will allow us to carry 
out each operation with comparative 
ease. 

Ignoring advanced features such 
as FILL, all computer-generated 
line drawings consist of a number of 
straight segments drawn between 
points. Circles and curves are made 
up of a very large number of very 
short segments. It follows then, that 
we can list the x and y coordinates of 
all the points and also specify which 
segment goes where. For instance 
we could number each point, and 
then say ‘draw point 3 to point 4; join 
point 1 to point 2...’ andsoon. 

As a simple example consider 
Figure 1, which has four points 


y-axis 


jo 1 2 


labelled (1 to 4) joined by four lines. 
The x and y coordinates of each point 
may be stored in two one dimension- 
al arrays x(a) and y(n). As there are 
only four points to store there will be 
only 4 elements in each array (ie 
1<n<4 see fig 2). 


In order to record which points are 
joined together we define a 4x4 


CRIPHICS: 


array c(m,n), known as the ‘inci- 
dence’ matrix of the picture. The 
entries are made as follows: 


if point m is joined to point n 
if point m is not joined to point n 


In our example, the following 
pairs of points are joined: 


[1 to 2] [1 to 3] 
[2 to 1] [2 to 4] 
{3 to 1] [3 to 4] 
[4 to 2] [4 to 3] 


Each line is included twice, be- 
cause it has two ends! So the inci- 
dence matrix looks like this: 


n— 


Just to make it clear: the entry 
c(3,2), say (in row 3, column 2) is 0. 
That says point 2 is NOT joined 
to point 3. Whereas the entry c(3,4) 
is 1, because point 3 IS joined to 
point 4. 


POINT TO POINT 


Having worked out a method for 
storing picture data we can now 
embark up designing our program. 
First we need a procedure to set up 
arrays that will store such data. 

500 DEFine PROCedure initialize 

510 INPUT#0,"nuaber of points?"!np 

520 DIM x{np),y(np) utnp) ,vinp) yc (np,np) 

530 CLS:CLS80 

540 END DEFine initialize 


Next, a general input routine which 
will allow you to specify the design 
you wish to have drawn: 


1000 DEFine PROCedure set_up 
LOCal hyi,t 
PRINT "nuaber","x-coord","y-coord" 
PRINT 
FOR t=1 TO np 
INPUT#O, "x-coordinate"!x(t):PRINT t,x(t), 


1010 
1020 
1030 
1040 
1050 


lan Stewart takes Euclid into the 
20th Century and applies a few 
simple formulae. 


1040 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


INPUT#O, "y-coordinate"!y(t):PRINT y(t) 
END FOR t 
FOR t=1 TO np 
INPUT#O, "“@°Kt&" connects to:";con¥ 
IF con$="" THEN NEXT t 
ptri=liptr2=1 
REPeat loop 
REPeat search 
IF con$(ptr2)=" " THEN EXIT search 
ptr2=ptr2+! 
IF ptr2>LEN(con$) THEN EXIT search 
END REPeat search 
k=con$(ptri TO ptr2) 
citykbedictky tial 
ptrileptr2:ptr2=ptr2¢+l 
IF ptr2>LEN(con$) THEN EXIT loop 
1220 END REPeat loop 
1230 END FOR t 
1240 END DEFine set_up 


A word of explanation may be in 
order here. This set-up first allows 
you to input the coordinates x(t) y(t) 
of the np points you have chosen. It 
displays these, numbered in order 


according to the value of t. For each 
point, you then specify a string con$ 
which lists all the points it is con- 
nected to. For example, suppose you 
want point 11 to be connected to 
points 1,2,5,7,9,14,15,16. Then in 
answer to the prompt ‘#11 con- 
nected to:’ you input ‘125791415 
16’ as a single string. Use spaces to 
separate the numbers. 

Our next procedure sketch draws 
the diagram. You can specify the ink 
colour col, and the size of blob to be 
drawn at each point. (If you don't 
want blobs, use size zero. The blobs 
are to make the process more vivid, 
and to add some interest to the 
resulting designs.) 

2000 DEFine PROCedure sketch(blob,col) 

2010 LOCal t 

2020 INK col 

2030 FOR t=1 TO np 

2040 = FILL 1 

2050 CIRCLE x(t) ,y(t) blab 

2060 FILL 0 

2070 «FOR l=! TO np 

2080 IF c(t,l)=1 AND t(1 THEN 

2090 LINE x(t),y(t) TO x(1),y(Q) 


2100 END IF 

2110 END FOR | 

2120 IF blob>O THEN 

2130 INK 0 

2140 CIRCLE x(t) y(t) blob 
2150 INK col 

2160 END IF 

2170 END FOR t 


2180 END DEFine sketch 


As a further refinement, we'll 
incorporate a polygon routine. This 
one has an extra. parameter, web. If 
web is set to 1 then the computer 
joins every vertex to every other 
vertex; if web is anything else, you 


get the usual polygon. 

3000 DEFine PROCedure polygon inv,web) 
3010 LOCal t 
3020 npenv 

3030 FOR t=1 TO av 

3040 x(t) = COS(2#t#P I /nv) 
3050 y(t) = SIN(2#t#PI/nv) 
3040 cXt-t,thaticit,t-L)=1 
3070 END FOR t 

3080 cllynv)=lic(ny,i)=1 
3090 IF web=! THEN 

3100 FOR t=1 TO nv 

3110 FOR 1=1 TO av 

3120 cit, 1)=t 

3130 END FOR 1 

3140 END FOR t 

3150 END IF 


3160 END DEFine palygon 


With procedures initialize, set-up, 
sketch and polygon typed in we 
are now in a position to map out 
any diagram to the computer’s 
screen and store it in memory. The 
next step is to move it around the 
screen. 


MAKING MOVES 


The simplest kind of motion to 
perform is one that slides the picture 
in some direction, without turning 
it. Such a move is called a trans- 
lation. If the translation moves 
xt units sideways and yt units 
upwards, then coordinates of points 
change like this: 

xX—x+xt 

yoytyt. 

The procedure to do this is: 


4000 DEFine PROCedure translate(xt,yt) 
4010 LOCal t 

4020 FOR t=1 TO np 

4030 x(t)=x(t) txt 

4040 y(t)sy(t)+yt 

4050 END FOR t 

4060 END DEFine translate 


Reflections (as in a mirror) are also 
easy to accomplish. The only one 
we'll make use of is a reflection in 
the y-axis. This sends 

xXx 

yy. aide 

Once more the algorithm is very 
easy to construct. 


4500 DEFine PROCedure reflect 
4510 LOCal t 

4520 FOR t=1 TO np 

4530 x(t)=-x (t) 

4540 END FOR t 

4550 END DEFine reflect 


Rotating a diagram about the origin 


A spiral: Two simple operations! 


by an angle of 6 (theta) is more 
complex. Coordinates change in a 
way that would appeal only to a 
geometer: 

x—x cos 6—y sin 0 

y—>x sin 6+ cos 0 

This leads to: 


3900 DEFine PROCedure ratate(theta) 

3510 LOCal t 

3520 FOR t=! TO np 

3530 u(t) = x(t)#COS (theta) -y (t) #SIN (theta) 


3540 vit) = x(t)#SIN (theta) +y(t)#COS (theta) 
3550 x(t)su(t)sy(td=v(t) 
3560 END FOR t 


3570 END DEFine rotate 


All the above operations are ‘rigid’ 
motions: they leave the shape and 
size of the picture unchanged. In fact 
every rigid motion in the plane can 
be performed as a succession of 
reflections, rotations, and transla- 
tions. If the shape stays the same, 
but the size changes, the move is 
called a similarity or dilation. If the 
size is to be scaled by a factor dil, 
then x and y change like this: 

x dil*x 

y—dil*y 

More generally, we could stretch by 
different amounts in each direction: 
x—dilx*x 

y>dily*y 

Now we get: 


5000 DEFine PROCedure dilate(dilx,dily) 
5010 LOCal t 

5020 FOR t=1 TO np 

3030 x(t)=dilxtx (t) 

5040 yit)=dilyty(t) 

5050 END FOR t 

5060 END DEFine dilate 


Whilst on their own the procedures 
to manipulate a diagram may seem 
simple, combined they form a power- 
ful and adaptable utility. Our Eu- 
QLid program, for example, could be 
supplied with a host of ‘driver’ 
routines to enable extremely com- 
plex manipulations. Here, you must 
always start by specifying the 
SCALE, and using initialize to 


Polygon and web combined! 


create suitably sized arrays. After 
that you can use set-up to custom 
design your own diagram; or use 
test or polygon. Then you can 
move the design around using com- 
binations of rotate, translate, 
reflect, dilate. 

To get you started, here are some 
sample ‘drivers’. 


90 MODE 4 

100 PAPER 1: INK 6:CLS 
110 SCALE 8,-6,-2.5 
120 initialize 

125 polygon np,t 

130 FOR p = 1 10 13 
140 translate .2,-.1 
150 rotate .3 

175 dilate .96,1.2 
190 sketch .3,RND(25) 
200 END FOR p 


100 
110 
120 
130 
140 
150 
140 
170 
180 


PAPER Os INK 7:CLS 

SCALE 10,-8,-5 

initialize 

polygon np,0 

dilate 3,3 

FOR p=ié TO 0 STEP -2 
sketch p/8,145-p 
rotate SE-2 

END FOR p 


PAPER O:INK 7:CLS 

SCALE 30,-24,-15 

initialize 

polygon np,0 

dilate 2,2 

translate 1,1 

FOR p=3 TO 20 
dilate 1,05,1.08 
rotate PI/10 
sketch p/10,p MOD 7+1 

END FOR p 


100 PAPER Os INK 7:CLS 

110 SCALE 30,-24,-15 

120 initialize 

130 set_up 

dilate 2,2 

translate 1,1 

FOR p=3 TO 20 
dilate 1,05,1,08 


180 rotate PI/10 
190 sketch p/10,p NOD 7+! 
200 END FOR p 


PRINT "coordinate values 
‘ between -2.00 & +2.00" 


PROTECT AND SURVIVE 


Is your software secure? Alan Turnbull shows that it isn’t but reveals how it can be! 


The idea of protecting 
software appeals to an 
extraordinarily broad 
range of users. For the 
software house, at the 
very top of the scale, 
7 it’s used to safeguard 
costly investments 
from criminal exploita- 
tion by unscrupulous third parties — 
better known as ‘pirates’. For the 
programmer, it helps keep secret the 
fruit of many hours hard work in 
developing revolutionary algor- 
ithms. For the businessman it pro- 
vides a means of denying access to 
sensitive information. And finally, 
for the aspiring amateur it provides 
a useful cover for incompetent code. 

As input and output under QDOS 
is ‘device independent’, program pro- 
tection is something of a problem. 
Any file, say, on microdrive or disk 
may be easily copied to printer, 
screen or any other microdrive car- 
tridge or disk. This is especially true 
of SuperBasic programs which are 
stored as pure ASCII files so that the 
simple command 

COPY mdv1_filename TO scr_ 
will reveal all in a form that is 
instantly legible. 

As regards machine code, though 
this needs to be disassembled, the 
fact that QDOS permits bytes to be 
pulled out of any place in memory 
using the SBYTES command and 
loaded back in to an entirely dif- 
ferent location using LBYTES 
makes this a very simple matter. 

So the QL program protector must 
devise special — some would say 
‘sneaky’ — methods of making a 
program run only when it is an 
original or making the copying pro- 
cess as hard as possible. In this 
article, we examine some methods 
available. 

The loading of commercial pro- 
grams from the medium on which 
they are supplied (Microdrive car- 
tridge), into memory so that they 
may run is usually done by a boot 
file. On the QL, immediately after 
one of the function keys has been 
pressed to select the picture format, 
the machine attempts to open a 
channel to a device called BOOT. 
This may be a list of commands held 
in ROM. If this is not found, an 
attempt is made to open a file for 
input called BOOT on Microdrive 1. 
This file, which must consist of a list 
of SuperBasic lines in ASCII, will 
typically load in more SuperBasic 
programs and/or machine code and 
will include a statement to CALL 
this machine code. 

This mechanism revolves around 
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the system variable called 
BV_COMCH. This variable is 
addressed in machine code by 
$0084(A6) and holds a long word 
representing the channel ID for the 
command input stream. Normally it 
holds zero for the standard keyboard 
entry channel but on booting the 
machine or issuing a LOAD com- 
mand, it holds the channel ID for 
opened file. 

Instead of following the normal 
booting procedure described above, 
the pirate would probably just 

LOAD mdv1_boot 
and list the SuperBasic program to 
find-out more information. But as 
the file is a list of commands which 
do not need line numbers, the boot 
file could be made to auto-run even 
when LOADed or MERGEd. 

An example program to set up a 
suitable boot file is given below. 


130 OPEN_NEW #4,mdvi_boot 

140 PRINT #4,"REPeat loop:"; 

150 PRINT #4," PAPER RND(O TO 7)3"3 

160 PRINT #4," PRINT ‘Try pressing <BREAK>'3:"3 
170 PRINT #4,"END REPeat loop" 

180 CLOSE #4 


Try LOADing or MERGEing the 
resultant boot file pressing ‘break’ 
(CTRL+ SPACE), and then issuing 
the command LIST — you will find 
that the program has disappeared 
because it wasn’t a proper program 
anyway: it was just a list of com- 
mands input from the Microdrive 
cartridge rather than the keyboard. 
This method can be used for any 
SuperBasic program — it does not 
have to be called BOOT and need 
not be stored in Microdrive 1. 

Although the above method can 
temporarily trick the pirate, he or 
she may still use the COPY com- 
mand itself. In this case we must 
make a vital file ‘invisible’ so that it 
does not appear in the directory. 
This may be done by saving a file 
with a command such as 

SBYTES mdv1_,0,49152 
This would save the ROM contents 
on Microdrive 1 with a null file 
name. When a DIR mdvl1_ is done, 
the directory shows no file but the 
number of free sectors will have 
obviously reduced. 

This method can be used to 
greatest effect when loading another 
file from within the machine code. A 
dummy file name (which when 
loaded might crash the machine) 
may be given that has a character 
count of zero POKEd-in. The pirate 
would hopefully be fooled by reading 
this loader file and would attempt to 
load and run the dummy file un- 
aware the zeroed character count 
and, of course, the machine would 
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crash hopefully destroying his or her 
previous efforts, thereby inducing 
frustration. The drawback with this 
method is that only one ‘invisible’ 
file may be stored on a cartridge. 

Alternatively, you may choose to 
store files with names like 
‘mdv1_<SPACE>’ — these may not 
be copied unless the file name is 
given in a string because the QL’s 
coercion mechanism cannot cope 
with the space after the underscore. 

One of the most popular methods 
of foiling the software pirate is to 
‘disable’ the break key. On the QL, 
there is no special system variable to 
enable/disable the break key al- 
though with the latest QL ROM 
release — version ‘JS’ — an attempt 
has been made to vector the key- 
board decode routine. This is the 
routine that decodes into character 
codes the different combinations of 
KEYROW values passed from the 
Intel 18049 (Intelligent Peripheral 
Controller) secondary processor. Un- 
fortunately, the Sinclair program- 
mers have placed the vector in ROM 
so that it cannot be altered. Never 
mind, perhaps they’ll get it right 
next time! 

The keyboard is scanned every 20 
ms under interrupts generated by 
one of the QL’s ULAs. Thankfully, 
this interrupt mechanism is vec- 
tored with the linked-list pointer 
held in SV_PLIST (at address 
$2803C). This long word points to a 
8 byte table. The first 4 bytes 
represent a long word pointer to the 
next item in the linked-list. The 
next 4 bytes are the long word 
pointer to the current 50Hz inter- 
rupt server. Upon power-up, the 
unexpanded QL has just one entry in 
this linked-list. This routine, called 
under interrupts, deals with all ex- 
ternal interfacing on the QL by 
communicating with the main ULAs 
and the Intelligent Peripheral Con- 
troller. 

It is therefore simple to disable 
the break key from within Super- 
Basic — you just issue the command 

POKE_L 163900,0 

which tells QDOS to ignore the 
outside world by emptying the 
linked-list. Doing this will affect any 
extra hardware you have attached 
which uses 50Hz interrupts. The 
method is only of use within simple 
SuperBasic programs although the 
keyboard may be read using KEY- 
ROW (for example, for reading cur- 
sor or function keys). 

A more useful way of disabling the 
break key may be done by linking-in 
an extra scheduler loop task — this is 
a routine which gets called every 
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time the QDOS job scheduler is 
invoked. The mechanism is of great 
use because all such routines are 
called before ROM-resident ones. 

In order to disable the break key 
we have to make sure that the 
system variable BV_BRK at 
$008F(A6) is never zeroed and that 
the SuperBasic job status is never 
set to ‘suspended’. Also, the effect of 
<CTRL> <F5> must be disabled 
by ensuring that the screen is 
always ‘active’ by setting the sys- 
tem variable associated with this 
accordingly. 

The assembly language routine 
shown in Listing 2 sets up a schedul- 


Listing 2 


NT_LSCHD EQU SE 
BASIC_HEADER  EQU $68 

I QU $008F 
UB_STAT EQU $0014 
SV_BASIC QU $28010 
8V_SCRST EQU $28033 
WAITING QU + 


TRAP #1 key to link-in a scheduler loop task 

Size of SuperBASIC job header (oftset from SV_BASIC) 
Offset of break key flag in BV area 

Offset of job status flag in job header 

Address of SuperBASIC job header 

Address of screen status flag 

Job status for ‘waiting for other job to finish’ 


+ Start of code 


LEA TASK AL Point to new scheduler loop task 
LEA TASK_LINK,AO Point to link space 
MOVE.L  AL,A(A0) Store task pointer in second long word 


WOVE = #NT_LSCHD,D0 TRAP #1 key to link-in task 
1 


TRAP Do manager TRAP 
RIS Return to SuperBASIC 


# Scheduler loop task to be linked-in 


TASK MOVEA.L SY_BASIC,AO Get address of SuperBASIC job header 

LEA BASIC HEADER(AO) AL Get address for Ad (start of BV area) 

TAS BY_BRK (AL) Signal ‘break key not pressed’ 

TST.W = -JB_STAT(AQ) Test SuperBASIC job status 

BE.§ —NO_ALTER Don't alter it if SuperBASIC is not suspended 

NOVE.W AWAITING,0B_STATIAO) Otherwise signal ‘waiting for other job to finish’ 
WO_ALTER CLR.B = SV_SCRST Ensure screen is active 

RIS. Return frow this task 


er loop task which makes sure 
BV_BRK never holds zero (thereby 
preventing QDOS from realising 
that the break key has been pressed) 
and checks for the SuperBasic job 
status and alters it accordingly. The 
routine works because it is called 
before scheduler loop tasks in ROM 
which include the break sequence. 

The Motorola MC68008 ‘TAS’ 
(test and set) instruction used 
actually tests and sets bit 7 of the 
operand byte in one indivisible oper- 
ation. (This is a neater way of 
signalling break has not been press- 
ed rather than loading $80 into the 
system variable. Here, the test part 
of the operation is ignored). 

The routine may be incorporated 
into your ‘boot’ file set-up using the 
method described above and an ex- 
ample complete with machine code 
loader for the benefit of those with- 
out assemblers is given in Listing 3. 

The best protection device on the 


130 LET reserved_address=RESPR(60) 

140 LET address=reserved_address 

150 RESTORE 

160 REPeat read_and_store_machine_code 

170 IF EOF THEN EXIT read_and_store_machine_code 

180 READ machine_code_byte 

190 POKE address,machine_code_byte 

200 LET address=addresst+i 

210 END REPeat read_and_store_machine_code 

220 CALL reserved_address 

230 PRINT #0,"Now try pressing break..." 

240 REPeat forever 

250 FOR border_width=99 TO 0 STEP -4 

260 BORDER border_width,RND(O TO 7) 

270 END FOR border_width 

280 END REPeat forever 

290 : 

300 DATA 67, 250, 0, 16, 65, 250, 0, 46, 33, 73 
310 DATA 0, 4, 112, 30, 78, 655 78, 117, 32, 124 
320 DATA 0, 2, 128, 4, 67, 252, 0, 104, 
330 DATA 0, 143, 74, 104, 0, 
340 DATA 255, 254, 0, 20; 86, $7, 0, "25 
350 DATA 78, 117, 0, 0, 0, 0, 0, 0, 0, 0 
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QL, apart from using ROM car- 
tridges, seems to be that of forcing 
the software purchaser to keep the 
original cartridge in, say, Micro- 
drive 2 whilst a user-made copy is 
run in Microdrive 1. 

This may be done by spinning the 
cartridge in mdv2 and reading a 
sector header. From this header, the 
16-bit random number may be 
obtained which was recorded during 
the FORMAT procedure. If the num- 
ber recorded on the original car- 
tridge is read at the time of creation 
and noted in a table in the loader of 
the program which needs protecting, 
this loader may compare it with the 
number read from the cartridge in 
mdv2. If it is not the same, or there 
is no cartridge present, a system 
reset or other nasties will come into 
effect. Otherwise the loader will 
continue to load the main program. 

Of course, the pirate still has a 1 
in 65536 chance of formatting his or 
her own cartridge with the same 
16-bit random number as the orig- 
inal cartridge! 

The MC68008 assembly language 
needed to read a sector header and a 
demonstration SuperBasic program 
are given in Listings 4 and 5 respec- 
tively. The latter includes the ma- 
chine code (in DATA statements) 
which will write the random number 
to a cartridge in Microdrive 1 and 
then invite you to place it or another 
cartridge in Microdrive 2. It will tell 
you whether it is the same cartridge 
(subject, of course, to the 1 in 65536 
chance mentioned above). 


Listing 4 


PC_TCTRL EQU $18002 Transit control hardware register 

PC_HCTRL QU $18020 Nicrodrive control hardware register 

148302 ULA transeit aode register 

Vector to read a sector header (indexed by $4000) 
Address in AH’ RON (QDOS v!,02) 

As above but for ‘JK’ (QD0S v1.03) 

As above but for ‘JS' (@D08 v1.10) 

fs above but for ‘JSU’ (QD0S viU10) 

As above but for ‘MG’ (OD0S v1.13) 

Address in ‘AH’ ROM of ‘Nicrodrive motor on’ routine 
As above but for ‘JM" 

‘As above but for ‘JS' 

fs above but for ‘JSU" 

fs above but for ‘MB* 


‘SV_TMODE EQU $280R0 
ND_SECTR EU $0128 
MOTORS_OFF_AH EQU $2858 
NOTORS.OFF_JN EQU © $2B4A 
MOTORS_OFF_JS EQU $2050 
NOTORS_OFF_JSU EQU $2098 
MOTORS _OFFME EGU © $2CCC 
WOTORON AH © EGU «$2844 
WOTORONJN QU $2870 
HOTORON US QU «42056 
MOTOR_ON_JSU EQU #2080 
MOTOR ON MS © EQU «$2002 


TINE_OUT EQU 1000 ‘Tiae-ut’ value for reading sector header 
PC_NOTKD EQU M1001 PC_ICTRL register aask for not Microdrive aode 
PC_SERB EQU 100010000 PC_TCTRL register value for serial 1/0 
INTS_OFF EQU 10000011100000000 SR value for ‘interrupts off’ 

INTS_ON_USER = EQU TILOLLOOOLILN1111 SR mask for ‘interrupts on’ and ‘user sode’ 
ERR_OK EQU 0 ‘No error’ return to SuperBASIC 

ERR_NF EQU 7 ‘Not found’ error return 

ERR_EF QU lb “Bad or changed aediua’ error return 


+ Start of routine to read a sector header from Microdrive cartridges. 
# CALLed with Microdrive number 1-8 in Di, 
RAP Enter ‘Supervisor’ node 


CHP.L 49,0! Nicrodrive nuaber = 97 
BGE.S —NOT_FOUND Yes - report error 
TTL oO No - Kicrodrive nuaber = 0? 


BEG.S —_NOT_FOUND 
ORL.N —INTS_OFF,SR 
LEA PC_ACTRL,A3 
NOVE.B — #PC_NOTHD, DO 
AND.B —SY_THODE,DO 
ORI.B 4PC_SERB,DO 
MOVE. —00,PC_TCTAL 
NOVE.B 0,8V_TMODE 
NOVEA.L ¢MOTOR_OM_08,A0 


Yes ~ report error 
No - turn interrupts off 

Point to Kicrodrive control register 

PC_TCTRL bits except Microdrive aode 

Pertora aask on 2X8302 ULA transeit aode register 
Signal 'Nicrodrive turning’ 

Set value for transait control register 

Sase for 118302 ULA transeit aode register 

Turn Nicrodrive aotor on (nuaber in D1) 


BR (A0) 
MOVE.W TIME OUT, D3 Set-up tiae-out for reading a sector header 
BAD_HEADER SUBQ.W 1,03 Decrement - tiae-out exhausted? 


BEQ.S © BAD_MEDIUM 

LEA WEADER_BUFFER,AL 
HOVEA.W MD_SECTR,AO 

JSR $4000(A0) 

BRAS BAD_NEDIUM 
BRA.S BAD _HEADER 

WOVEO © ERR_OK,07 


Yes ~ report error 
No - point to buffer for sector header 
Vector for reading @ sector header 


Return here means ‘bad or changed ediua’ error 
Return here weans sector header flag ($FF) not found 
Return here seans finished o.k. 


BRA.S = FINISH Juap to end 
WOT_FOUND WOVEO == SERR_NF D7 Signal ‘not found’ error 

BRAS = QUIT Juap to end - no need to turn aotors off, etc. 
BAD_NEDIUM MOVEO = HERR_EF ,D7 Signal ‘bad or changed sediua’ error 
FINISH MOVEA.L §MOTORS_OFF_JS,AQ Turn all Microdrive motors off 

JSR 1A0) 


HOVE.B —#PC_NOTND, DO 
AND.B  SY_THODE, DO 
MOVE.B DO,PC_TCTRL 
MOVE.B —D0,SV_TMODE 


PC_TCTRL bits except Microdrive ode 
Perfora aask on 218302 ULA transeit sode 
Store back in transait control register 
e sev and in 118302 ULA transait kode register 
wit ANDI.W  WINTS_ON_USER,SR Turn interrupts on and set ‘User’ aode 
HOVE.L 07,00 Store error return nuaber 
RTS Return to SuperBASIC (reporting any error) 
# Reserve storage for sector header 
HEADER_BUFFER 
FLAG 1S.B 
SECTOR NUMBER DS.B 1 
NAME 08.8 10 
RAND_NUNBER DSN 
END 


Special sector header flag (4FF) 

Nuaber of sector following header 

Cartridge nage padded-out with spaces 

1b-bit randoe nuaber stored during FORMAT procedure 
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The ROM routines to start-up 
single, and turn-off all, Microdrive 
motors are unfortunately not vec- 
tored as the ones to read sector 
headers. Hopefully this might be 
changed in future versions of QDOS. 

All this has meant we need to 
provide the addresses for the 
routines for every ROM release — 
these are ‘AH’ (QDOS version 1.02), 
‘JM’ (1.03), JS’ (1.10), ‘MG’ (1.13) 
and ‘JSU’ (1U10). The last one is the 
US version of the JS’ ROM (and if 
you have either ‘FB’ or ‘PM’ — both 
are obsolete and no longer supported 
— you should immediately return 
your QL to Sinclair). Your ROM 
release code is returned by. the 
SuperBasic string function VER$. 
Listing 4 should be assembled sub- 
stituting the correct addresses for 
your ROM release. Listing 5 auto- 
matically POKEs the correct addres- 
ses into the routine. 


130 MODE 4 

140 LET reserved_address=RESPR(144) 

150 LET address=reserved_ address 

160 RESTORE 

170 REPeat read_and_store_machine_code 

180 IF EOF THEN EXIT read_and_store_machine_code 
190 READ machine_code_byte 

200 POKE address,machine_code byte 

210 LET address=address+1 

220 END REPeat read_and_store_machine_code 

230 LET rom_ver$=VER$ a 
240 IF rom_ver$(1 TO 2)='PM’ OR rom_ver$='FB’ THEN 
250 PRINT "Return QL to Sinclair" 

260 STOP 

270 END IF 

280 IF rom_ver$(1 TO 2)='AH’ THEN 

290 POKE_W reserved_address+54,11108 

300 POKE_W reserved_address+96,11102 

310 END IF 

320 IF rom_ver$(1 TO 2)='JM' 

330 POKE_W reserved_address+54,11120 

340  =POKE_W reserved _address+96,11114 

350 END IF 

360 IF rom_ver$(1 TO 3)=‘JSuU' 

370 POKE_W reserved _address+54,11424 

380 POKE_W reserved_addresst+96,11418 

390 END IF 

400 IF rom_ver#(1 TO 2)='MG' 

410 POKE_W reserved_addresst54,11474 

420 POKE_W reserved_address+96,11468 

430 END IF 

440 IF rom_ver$(1 TO 2)<>‘JS' 

450 PRINT “New ROM - contact me through QL User" 
460 STOP 

470 END IF 

480 REPeat test_microdrive_cartridges 

490 PRINT “Place a cartridge in mdvi and press a key" 
500 PAUSE 

510 CALL reserved_address,1 

520 LET mdv_one_number=PEEK_W(reserved_address+132) 
530 PRINT "Place a cartridge in mdv2 and press a key" 
540 PAUSE 

550 CALL reserved_address,2 

560 LET mdv_two_number=PEEK_W(reserved_address+132) 
570 IF mdy_one_number=mdv_two_number THEN 


580 PRINT "Cartridge in mdv2 same as that in mdvi" 
590 ELSE 

600 PRINT "Cartridge in mdv2 not the same as in mdvi" 
610 END IF 

620 END REPeat test_microdrive_cartridges 

630 


640 DATA 78, 44, 
650 DATA 74, 129, 103, 72, 0, 124, 7, 0, 71, 249 
660 DATA 0, 1, 128, 32, 16, 60, 0, 231, 192, 57 
Q70)DATA 0, 2) 28, 160,- 0, 0, 10, $6, 19, 192 
Seo DATA 0, ty 128, 2, 194, 192, 0, 
690 DATA 32, 
700 DATA 3, 232, 83, 47, 
710 DATA 48, 120, 1, 42, 78, 
720 DATA 96, 236, 
730 DATA 126, 240, 32, 124, 0, 0, 44, 80, 78, 144 
740 DATA 16, 60, 0, 231, 192, 57, 0, 2, 128, 160 
750\ DATA 19, mlG2, 0 G0 4, 128, 2, 19, 
760 DATA 128, 
TO DATA 60s). Og 0; M0} 05° Oy Oy 0% 0%, 0 
780 DATA 0, 0, 0, 0 


ADDENDUM: Since printing the 
above we have found some missing 
lines. To correct this add the follow- 
ing to the program: 
275 LET rom_recog=0 

and then the line LET rom_ 
recog=1 at line numbers 305, 345, 
ae 425. Now replace line 440 
with: 


440 IF rom_recog=0 


d 27 


For all BBC B and QL micro users, 
the Cumana UPGRADE offers 
the chance to step into a truly 
professional environment. 


Powered by the UNIX-like, high 
performance OS-9 operating 
system, the UPGRADE is easily 
installed with no soldering or 
wiring required. With a single 
keyboard command, the user 
changes from standard mode to 
UPGRADE mode; the result is 
multi-tasking, real-time, true 
minicomputer performance! 


The Cumana UPGRADE 
available only from Cumana:- 


OS-9 and Basic 09 

are trademarks of Microware & Motorola. 
UNIX is a trademark of Bell Laboratories. 
Sculptor is a trademark of MPD. 

BBC is a trademark of Acorn. 

Sinclair QL is a trademark of Sinclair Research Ltd. 
MS-DOS is a trademark of Microsoft. 


@ RAM expansion of 512 Kbytes 
standard 

@ Double density floppy disk 
controller 

@ Winchester disk interface for 
high storage capability 

@ Full multi-tasking in true 
real-time 

@ UNIX software compatibility 

@ Powerful graphics kernel 

@ Dynacalc — powerful electronic 
spreadsheet 

@ Stylograph with Mailmerge & 
Spell Check (versatile word 
processor) 

@ Sculptor — Database/Software 
development system 

@ Basic09 — Basic compiler 

@ Compilers for C and Pascal — 
professional quality compilers 

@ Assembler 


“The Cumana UPGRADE — 

: more performance, 
more payoff in your 
existing 
investment." 


4’ The best name in memory 


Cumana Ltd., Pines Trading Estate, Broad Street, 
Guildford, Surrey, England, GU3 3BH. 
Tel: Guildford (0483) 571666. Telex: 859380. 


Ch 


of 


ange Into Overdrive 
ith Cumana’s Super 
ew QL Controller 


The Sinclair QL Controller + 312" Disk Drive System 


THE QL CONTROLLER SPECIAL 
Simply the best disk INTRODUCTORY OFFER’ 


controller available for your As an introduction to the 
QL with facilities and remarkable new QL Controller, 


performance superior to any Cumana have put together two 

other system and with a host special packages at very special 

of outstanding features. ies 

* Signal buffering between Penne oo 
QL + Controller assures 


4 ROM basod tities £189.95 


* Supports up to 4 drives in . 
double density mode CA072 QL CONTROLLER with 
CD005 31%" dual 


* Uses 40 or 80 track disk drive ONLY 


drives, single or double ¢279 : 95 


sides, 3, 312” or 514" 
inc VAT 


Upgrade your Sinclair QL 
with Cumana’s 1 Megabyte 
and 2 Megabyte QL Disk 
System at prices that no 
one can match’ 


format 


* High compatibility with 
microdrives 


* Easily connects into QL S MANA’ 

expansion socket CU best name in memory 
CUMANAS QL CA070 4 Cumana Limited, Pines Trading Estate, 
CONTROLLER — ONLY 


Broad Street, Guildford, Surrey, GU3 3BH. 
£82.95 inc vat 


Telephone: Guildford (0483) 503121 
A CHOICE OF DISK DRIVES 


| Telex: 859380 
Cumana can offer two disk 
drives compatible with the QL 
producing 1 Megabyte and 


ORDER FORM (QL OFFER) 
QL USER NOVEMBER 


4 
Cumana Limited, Pines Trading Estate, Broad Street, Guildford, Surrey, GU3 3BH. 
Telephone: Guildford (0483) 503121. Telex: 859380 


ORDER FORM (QL OFFER) I 
i 


a 


2 Megabyte systems at very QTY Please rush me:- ae 
special prices. TICK q 
CA070 controller(s) at £ 82.95 2 
r CA071 with CS005 disk drive(s) at £189.95 
CS005 31%" 80 track double CA072 with CD005 disk drive(s) at £279.95 [1 i 
sided disk drive CS005 disk drive(s) at £109.95 O 
CD005 disk drive(s) at £199.95 1 A 


£109.95 


inc VAT 


CUMANAS CD005 31%” 80 
track double sided disk drive 


£199.95 


TEL NO 
inc VAT St See a ee 
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| enclose cheque/PO for 


or debit my Access/Visacardno [FLT TITTIITIIILIII1I1L1 i 


DELETE AS APPLICABLE f 


NAME 
MODRECS & FESer a bo Meee BE 2 oP fe 


A aah Dees es oe 


QL BARGAINS 


* ALL PRICES INCLUDE VAT AND NEXT DAY DELIVERY BY SECURICOR «x 
CALL 0267 231246 FOR PERSONAL ASSISTANCE 


NEW LOW QL PRICE — JUST £199 


MICRO MANAGER By Locistic SOFTWARE JUST £99.95 

yx SALES AND PURCHASE LEDGERS Up to 12 sales types with full 
reporting on each type. Running totals of sales and purchases. 

vv NOMINAL LEDGER Integrates with sales and purchase ledgers with up 
to 70 categories. VAT and profit and loss and end of year balance sheet. 

xx INVOICE GENERATOR Produces invoices, orders and credit notes in 
three different formats. 

yx CUSTOMER AND SUPPLIER FILES Complete reports on what is owed for 
one month, two month and over three month basis. 

yx BANK MANAGER Records all monies paid in and out and reports on 
debit and credit balance produced. 

ye UNPROTECTED SOFTWARE Transfer to disk or cartridge as required. 

yz OPERATION Menu-driven with helpful user manual. 


NEW QCAD GRAPHIC DESIGN PROGRAM FOR JUST £39.95 
ENABLES YOU TO EASILY DESIGN HIGH RESOLUTION GRAPHICS 
ON THE SCREEN 

ye SUPPLIED COMPLETE WITH USER MANUAL 

yx EXTENDED ELECTRONIC SYMBOL SET 

yx HIGH RESOLUTION SCREEN DUMPS TO MOST PRINTERS 

yy SET AND MANIPULATE SYMBOLS — MOVE-COPY, ETC 

yx SAVE AND LOAD DIAGRAMS 

yx BACK-UP SERVICE INCLUDED 

yr UNPROTECTED SOFTWARE TO TRANSFER TO ANY MEDIA 

yx DESIGN YOUR OWN SYMBOL SET 


UPGRADE YOUR QL TO 640K THE EASY WAY FOR JUST £119 
Price includes: + SECURICOR COLLECTION FROM YOU 


PRINTER PRICES INCLUDE MIRACLE SYSTEM INTERFACE 
MANNESMANN TALLY MT80+.....esesssssssseessecsssssneesees ppotasessenrsesbecvsetse chet £229 
EPSON LX80 wi 


Parallel \nterface Miracle Systems .. 
Serial cable sey 
2000 sheets fanfold paper supplied with printer... i 
AMICrOd rive Cantrid GOS cweccitctns. cst tinsectssscsstasecusansertrurrtsane-cosstsverttanee 
WranstarmibOx for20 CArthid GOS’ ..ccccccccccesstecssssscsdsasctareccssstensssecsrbevsttessssassssaraset 
10 Cartridges and Transform box.. Le 
AOSD SHDDISHOG i GISKS... scree scatssessantter mente trteleoeen taadnes Seen 


MT80+ AND SHINWA... f 
QUEEN DITA sccscstsccss.ccanteegecavesccatonstasseeseeece deta eicr Maee CRN Gusta Herssasl he obisceal 


y RETURN OF OLIN LESS THAN 7 DAYS 
x 90-DAY WARRANTY 
» CLEAN NO SOLDERING UPGRADE 


CUMANA 312” DUAL 720X720K DISK DRIVEG............. £199 


LANGUAGES BUSINESS 

METACOMCO ASSEMBLER........£36 = PAYROLL... scsssccssssssssesssssessssesenee £63 
METACOMCO BCPL........... £54 CASH TRADER...... £64 
METACOMCO LISP............. £54 DECISION MAKER... £36 
METACOMCO PASCAL......... £52 PROJECT PLANNER 

MONITOR DISSEMBLER... £18 ENTREPRENEUR............. 
QUETIOOURMM esrcsssccsceccesecs £22 QL HOME FINANCE (BUZZ) 

FORTH .tcrsesssrnineccncstenits £36 TYPING TUTOR 

DIGITAL BASIC COMPILER.........£80 | EIDERSOFT ARCHIVER aH 
METACOMCO ‘C’...........00.. EIDERSOFT Q SPELL (CAR?)........£20 


CARTRIDGE DOCTO EIDERSOFT Q SPELL (DISK)......... £23 
LEISURE 

QL-CAVERN (HIGHLY RECOMMENDED)...........ccsssssssssssssssssssssssssseesssseseseseeeee £13 
MIGRODEAL HOPPER wcssiersauts.cossssteiessercvaranisenessennsic : 
MICRODEAL CUTHBERT IN SPACE (RECOMMENDED)... oe 
PSLONUIMATICEUROUNM cccecsccccsssssevessassassPeetcvscsoreesStGrscsaree £15 
HY PODRIV Es scssssserentstsssacterscttetserscess 
MICRODEAL LANDS OF HAVOC... sss 
PSIQN'GHESS crekcnsc.sssscccccpeseeesers ww £17 
TALENT WEST... 
TALENT ZKUL........ 
TALENT GRAPHIAQL........ 
QL SPRITE GENERATOR... 
QL SUPER BACKGAMMON... 
EIDERSOFT ZAPPER............ Be 
EIDERS OFT QUART ssszsssesvscessestecsssssesertves seetinvn vation dees. sasescgatecesnscassetrencoss oe £15 


STRONG COMPUTER SYSTEMS 


Bryn Cottage, Peniel, Carmarthen, Dyfed SA32 7DJ 
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CST DISK INTERFACE ............. 


PCMIL DISK INTERFACE WITH 266K RAM AND ROM... £249 


MIGROMEAL CRAZY PAINTER sccasscssinranscttcrsersncsecccactiedeneed £13 
MICRODEAL FLIGHT SIMULATOR. £7 
DEG KERAIE ccssssiccrssiers Mt ectseessaees ith od at Red led, eee UN £169 


256K RAM WITH RAM DISK ROM........cccccsssssssssecscccsssssnnsecsccssssnsssessssssssnsnsses £189 
Q+2 MOTHERBOARD WITH POWER SUPPLY.. £69 
DOUBUEIEX ANDER sccnccscptemeretatasctten tettescacarie teen so:casoresetites Rosita £39 


MONITORS (CABLES INCLUDED) 

Microvitec 1451/DO3 colour with swivel stand.uoccccccsscsccssssessseesssessseesses £272 
Microvite 145i) DU gre iiwesc: ccs ascmncticc eet tata ee creel £254 
Swivelistand foriMiChOVite C sicsssssusea.srmetcee cucteeccesstses coset ceaettecoe teak: £25 
Philips V7001 10MHz Green... 
Swivel stand for V7001........ 


3250 WATT MAINS FILTER - JUST £36 
vy Provides four protected mains sockets with plug 
x Avoid crashes and damage to the QL’s components 
yx 30dB suppression 1MHz to 30MHz 
¥ 130 joules spike suppression 


MODAPTOR - ONLY £39 
ye Link your QL to a Modem with RS232C socket 
yx Prestel and Bulletin Board software 


QL JOYSTICKS - £14 


Tel: (0267) 231246 


Each month, for a trial period, this column will contain details of readers’ 
programs that we are able to offer on microdrive. 


30-32 Farringdon Lane, EC1R-3AU. 


ifit had been gleaned from a If you wish us to supply the drive, please add an extra £2.50 for every drive 


L fora QL— that'll do nicely — In return for a small administration charge (per program — including a 
but will have also seen the royalty for the author), we will copy onto blank microdrives any or all of the 
on printer advertised alongside featured programs. : : rah 
U el the QL for the last two Each program will be a direct copy of the published listing, or an extended 
+ months, And whatatitvA version of that listing where the program in question was too long to print in 
i : Y SA ECA eerste full (programs for which an abridged version has been published are marked 
black box boldly displaying with an asterisk). 
the Sinclair logo and It must be stressed that we are not selling the software itself, nor providing 
D ae || concealing one Seikosha NLQ any guarantee that it performs any particular function (though we do check 
1 dot matrix printer (probably). | every program that is to appear in QL User), we are merely offering a service 
ann 5 What of the PCW Show! to readers who wish to obtain QL User programs on drive rather than by 
a AN : : j typing them in straight from the page. 
VSSHHH | stand they had at the Which 
SJ stan ey had at the ic : 
U cnt > an Computer show populated by . HOW TO ORDER ——_—— C 
ann : ageing Spectrums and now Listed below are programs which have appeared as listings inside QL User. 
SS officially ‘cheap’ QLs. What To the right of each program entry is a small box, which you should mark 
1 | | y 2 ? : with a bold cross if you want to order that program. 
new software there was did Once you have put a cross next to all the programs you wish to have copied 
C nothing to advance the cause onto microdrive, simply complete the rest of the order form and send it along 
of 68000 programming: a with your PO/cheque AND BLANK FORMATTED DRIVE to: 
game of Reversi that looked as QL User, MICRODRIVE EXCHANGE, Priory Court, 


As one shady character readers program and a required and mark the order form appropriately. 
departs for pastures anew, rendering of Asteroids that Please allow 28 days for delivery. 
- doesn’t do justice to its . ORDER FORM 
another takes their place. So, | authors. Are Sinclair so ‘ : : 
a new Silhouette with a desperare for eofuware vast | Giles Todd (B) DIY Assembler £5.00 iun/Mar 120 | 
8 . d they'll badg' e anything that Converts Assembler source into m/c object code ea | 
similar brief — to root out and | :oves? More importantly, |= ae 
ee Richard Cross (AO) Mini Monitor £3.00 Oct 60 
reveal the best in QL rumour. | where do they Boxset such a | Pocket sized moniter with conpisbessive fociities : 
strange position: ; | ADidcock (B) Connect4 £1.00 Sept isc | 
The Swedish Saga, it would The good news is... wait | Pit your wits against the QL 
appear, goes on andon... for it... British Telecom has | Shergold & Tose _(B) * Golf £2.00 May 350 
Basingfjord — the emmigres entered the QL games market, | From fairway to green on 59 different courses of varying difficulty 
answer to Dallas — still albeit indirectly through Williams & Holliday.‘ (AO) Paladin £5.00 Apr 700 
dominates the (over)ratings. Firebird Software; purveyor of | The basis of our games programming series — a space invaders type game written entirely machine 
Mystery, drama and suspense | blockbuster games (Gold | = = = ae 
are all there, set against a series) as well as super chara Cross. 5 prite Animation £2.00 Apr 50 
: : Z : : A subtle blend i ile sprite desk F 
background of microelectronic | cheapies (Silver series). I ceed ee a nes ene ne awa oe Oe 
madness. Will the so-called Unfortunately, their QL I tevelbetry 1B) Pact Ho ae oa 
definitive expansion system offering called Booty, a | 4 reasonably fast rendition of the famous arcade favourite 
ever go into volume platform game, fails to fall | Andy Carmicheal _(B) Family Tree Eta 100 


| Archive program and database for setting up and displaying large family trees 
| James Lucy (B) Composer £3.00 Oct 500 


Compose and play sheet music on the QL 


Mathew Capp (B) Miners £2.00 Aug 30 
] A nail biting management simulation that puts you in charge of the NCB 


| PJ Smith (B) * DIY Adventure £1.00 Feb 600 
] A skeleton framework where you simply have to slot in the details to create your bespoke adventure 


] RGreen (B) Qthello £1.00 Aug 250 
A 3D version of the well known board game Othello for one or two players 


SJ Ackers (B) *Touch Type £4.00 Aug 80 
Touch typing course — 14 lessons, on-screen keyboard, 800+ word vocabulary and WPM readout 


B = SuperBasic, AO = Assembler + Object Code (ready to run), MB = Machine Code + 
Basic loader 


Z2rPigox<m mo = 


| 
Noofprogramsordered _............ Totalcost £............ 
The awe-inspiring Reversi and linear Meteor Storm. ie petal die) lice 
production? Is performance into either a me | Noofdrivessent sess. 
simply an accounting term Firebird have chucked in an : ; : 
and delivery a metic! | extra game to justify the price | Noofdrivesrequired = ............ € E2ipOleaeh £2 i 
problem? Is an interface in the | and thereby created an I Plus postage &packing £ 0.75 
hand better than four freebies | entirely new category (no, not | ee adi | 
and a dual disk system in the | ‘Fool’s Gold’)— ‘Super Silver’. | | ub total £............ | 
post? And, most important of Joviality aside, the entry of | | Subscribers reduction *(if applicable) @ —10% £............ | 
all, are these questions a well established software | Add VAT @ 15% £ | 
rhetorical or will somebody company into the QL market | DAS Bevin | 
ever answer one of the many | can only bode well, provided, i TOTALTOBESENT £............ I 
phones connected to the of course, it’s not just another | Please copy onto microdrive the programs above which | have indicated with | 
problem? Christmas gimmick! across. | enclose a cheque/PO to the value of £............ (made payable to I 
Mystery surrounds the I QL User). | understand that QL User only undertakes to SUPPLY these 
Sinclair printer. What will it | SILHOUETTE | programs (copied onto microdrive) and accepts no liability for their 
be? Well, if you have an The Publishers wish to point out that the statements | | operation as defined by the author. Neither can QL User supply additional 
American Express card and and opinions expressed here do not necessarily i information about any of the listings other than that originally printed in the Il 
ear reflect those of QL User or its staff. Statements magazine (any article reprints required must be ordered and paid for 
live in the States, not only will | made by Sithouette are purely subjective and should | | Separately at £1 each inclusive of post and packing). 
you still be paying full price be treated as such, J__“Subscribers to QL User may deduct 10% off the Sub Total on their orders. | 
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Don't miss 
L USER 
y month 


take out a 
subscription. 
(= today _ 


- Ensure that you never miss a copy 

of QL User, 

Simply fill in the form below and we will deliver 

QL User to your door every month. No more long 

4 walks to the newsagent only to be told they have sold 
~ Out, instead your very own guaranteed copy. 


ETURN THE FORM BELOW TO: 


Carl Dunne, Magazine Services (Dept QL), Priory Court, 30-32 Farringdon Lane, 
London EC1R 3AN. 


a OO ae 


RATES 


| U.K. £15.50 fe] Europe £30 [ | Outside Europe £40 ea Air mail £45 [ | 
If you are a member of QLub the subscription rate is £12 per year, but you must quote 


your QLub membership number. | 
I enclose a cheque/P.O. for £______ Please debit my Access/Visa card acccount £ 
he seeigy- “ef Account Nomiber == 2 "0" 3 | __vieem@ are expire apes | a fe oy 
» | My QLub membership number is 
Bret "elie ee al Rene rites 


Address 


AN IMPORTANT ANNOUNCEMENT TO ALL OL OWNERS 


bad orchanged medium 


Your data is worth a lot to you. Source programs, text, scientific information, records, all 
represent hours of your time and effort. Losing a file could at worst cost you money — and it’s 
always infuriating! 


No storage medium is 100% reliable. That's why TALENT has developed the CARTRIDGE 
DOCTOR. It’s a sophisticated machine code program which will, in most cases, enable you to: 


@ recover files from a bad medium 
@ recover files which have been accidentally deleted 
@ recover files with lost or damaged blocks using the ‘block patch’ utility. 
It’s very easy to operate and no knowledge of BASIC or machine code is required. 
Can YOU afford to be without the CARTRIDGE DOCTOR? 
Available only from: 


£14.95 _ , 
+ 50p postage & packing Pa Ve CCEN 


QL is a registered trademark of Sinclair Research 
GOMVMIPUITER SYSTEMS 


Curran Building, 
101 St. James Road, Glasgow G4 ONS 
Tel: 041-552 2128 (ACCESS & VISA accepted) 
SOFTWARE FROM SCOTLAND 


The Great Little 80 column Printer 
from Viglen ata price everyone 
canafford 9 |_......; 


y coupon with your requirements. Enclose your 


Cheque/P.O. or use your Access/Barclaycard. 


Please make cheques payable to VIGLEN 
(INCLUDING VAT) 


COMPUTER SUPPLIES and post to the address 
with interface cable 


shown left. Allow seven days for delivery, add 
B All printers come standard with 


$8.00 carriage, packing and ins. on all items. 
By telephone - Ring (01) 843 9903. Credit 
Card holders (Access/Barclaycard only) can 
purchase by telephone. Please give Card 
No., Name, Address and items\required. 


Credit cards valid if signed by 

card holder. Address on coupon | 
must be same as card holder. 

meme ee ee SS SS 
Please send me (state quantity) 


Made in Japan 


both.serial and parallel interface i ——— GLP printers) ; 
H@ 12cps near letter quality mode at time of gone cen | enclose Cheque/P.O. for $000.6... 
- offers subject to availability add £8.00 carriage 
@ Normal 50cps draft printing ] ] 
Hi Tractor and friction feed as Post to: | State whether BBC, QL or IBM ae Aad SR Ps | 
standard Viglen Computer NEIAS 2220s). agenda eae Bac eek 
M Uses normal A4 sheet paper or Supplies [dg 2) = UM eink Ree gar ae ] 
continuous stationery Unit 7, Trumpers Way 
B Original plus 2 copies Hanwell, W7 2@A | Re Ee Bev naa Aa | Seka l 
B® Bidirectional logic seekin NOIOR BAS DIOS ic! givin po. 6 EN ketene tehysatl in ei ssint 
aS g Showroom/factory open I preterto pay by ACCESS/BARCLAYCARD I 
HB 48 International characters Monday - Friday 9.30-5.30 | (delete whichever is not applicable) | 
B Subscripts, superscripts and Saturday 9.30 — 4.00 GatdIND = 2: ORR lee Ta Rh 9 
underlining. THE BEST PARTNERS || ] 
Also available for IBM. FOR YOUR COMPUTERS SIMO US tay waren coat emttc unas aut eee 
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Five more books from the 
QL collection, reviewed 
by Nicky Trevett. 


Among the new books for QL 
users this month are two that 
would fit into your pocket. 

The Sinclair QL by Guy 
Langdon and David 
Heckingbottom, price £3.95, is 
one in the Pitman series of 
Computer Handbooks, 
designed to provide handy 
references to microcomputers. 

This one attempts to cover 
all the main features of the 
QL, including a brief 
specification, entering and 
running programs, colour and 
graphics, the real-time clock, 
sound, mathematical 
functions, machine code 
programming, devices and file 
transfer, the RS232 ports, and 
so on. 

It’s certainly not a manual, 
more an extensive glossary of 
terms for quick reference, and 
it’s not suitable for the 
complete beginner. There’s no 
attempt to explain 
programming terminology 
when discussing SuperBasic, 
for example, or basic computer 
concepts like pixels, and some 
aspects of the QL are taken for 
granted — there’s no section 
specifically devoted to QDOS, 
for instance. 

The handbook is organized 
into logical sections, with 
useful glossaries of keywords 
where appropriate (for general 
SuperBasic programming, 
graphics, the clock, sound, 
input/output instructions, 
mathematical functions, 
machine-code interface, 
graphics, and devices and file 
transfer). The appendices at 
the back include the ASCII 
table, character code to key 
depression conversion table, 
and a listing of SuperBasic 
keyword syntax. There is also 
an index. 

In a book of this size, you 


BOOKMARKS | 


aren’t going to find detailed 
explanation and example in 
any of the areas covered, but 
as a memory jogger or a pocket 
reference, you might find a use 
for it. 


Archive On The Cheap 


The second pocket-sized 
offering this month is another 
book about Archive, published 
by Bernard Babani. Into the 
QL Archive boasts an 
uninspiring front cover and 
cramped, hard-to-read text on 
cheap paper. That would not 
matter particularly if the book 
had anything new to say, but I 
can’t see that it has. 

It sets out, like most books 
on Archive, to enable the user 
to derive the maximum 
benefit from the program. 
Specifically, it is aimed at 
newcomers, possibly to 
computing and certainly to 
Archive — this is not a book for 
experienced users. 

As an introduction to 
Archive, it is clearly written 
and quite well explained. 
After answering the question 
“What is a database?”, it looks 
at creating files, 
programming, screen layouts, 
using multiple files, using 
printers and error handling, 
with an appendix at the back 
looking at version 2 
differences and how the new 
version affects the text in the 
rest of the book. The appendix 
is mysteriously labelled 
appendix (i); I couldn’t find an 
appendix (ii). 

It is practically orientated 
towards real-life applications, 
like setting up a customer file, 
and there are plenty of listings 
provided. But it’s all a little 
dry and colourless, and I can’t 
help feeling it’s been done 
better elsewhere. 

Still, at least it has the 
distinction of being extremely 
cheap if you’re on a tight 
budget (£2.50), and no one can 
deny that it’s probably the 
smallest book about Archive. 


Lively Lothario 


For an exercise in lively 
writing, one has only to turn 
to Adam Denning’s Advanced 
Machine Code, published by 
Duckworth. 

Few would describe 
machine code programming as 
a light-hearted subject, but Mr 
Denning almost manages to 


make it appear so. The book is 
very readable, but it is not for 
the absolute beginner — it’s 
assumed, for example, that 
the reader has already ‘read a 
book or two’ on the subject of 
the 68000 processor. The book 
does, however, take trouble to 
introduce those familiar with 
processing technology in 
general to the QL and 68000 
assembly technology. 

First, there is a brief look at 
the 68000 chip (or the 68K, as 
it’s referred to here), including 
its architecture, and its 
various modes and 
instructions. The next chapter 
presents some short machine 
code programs, including a 
useful one that defines 
windows and enters hex 


‘ 


machine code into the correct 
places. The author suggests 
you save this and use it asa 
boot file. 

Next there is an 
introduction to QDOS, 
followed by a chapter which 
explains how machine code 
functions and procedures can 
be incorporated into 
SuperBasic. Later sections of 
the book concentrate on file 
handling (including a look at 
the ‘pipe’ device — remember 
the pipe?), user-defined 
graphics (giving the lie to 
those who thought the QL 
didn’t have any), multi- 
tasking, job control, and 


screen-handling and graphics. 


The last chapter touches 
wistfully on some aspects of 
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Hawksley’s Pascal 
Programming: A Beginner's 
Guide to Computer’s and 
Programming is not so much a 
guide to Pascal as a guide to 
programming using Pascal as 
the example. It’s 
academically-orientated, as 
might be expected, aimed at 
programmers ‘of all 
disciplines, including the arts 
and social sciences’, as well as 
at those with a mathematical 
or engineering background. 
But the text adopts an 
applications-based approach 
and should prove of use to the 
new owner of a microcomputer 
who wants to learn Pascal as 
well as the student. 

The author’s introduction is 
refreshingly down to earth, 


the QL system not covered in 
‘the scope of the book, tossing 
in a few extra QDOS routines. 

There are extensive 
appendices, including an 
assembler header file 
(covering trap codes, vectors, 
offsets and equates used in the 
book), a listing of some games 
routines, a SuperBasic 
utilities listing, and the QDOS 
system variables. An index is 
also included. 


Basic Pascal 


If you’ve exhausted the 
possibilities of SuperBasic, 
how about trying your hand at 
Pascal? 

Published by the Cambridge 
University Press, Chris 


which should immediately put 


the nervous novice at ease. He 
compares learning how to 
program with the process of 
learning how to play a musical 
instrument, for example, and 
makes it ruthlessly clear that 
the computer is nothing more 
nor less than a tool 
constructed by man, which 
doesn’t make mistakes any 
more than a carpenter’s chisel 
or a writer’s pen. 

This promising start is 
sustained throughout the 
book, which is entertaining 
and readable and gives jargon 
very short shrift. It 
deliberately moves away from 
the number-orientated 
approach of too many 
academic programming text 


books, although it retains the 
‘feel’ of a text book — there are 
exercises at the end of each 
chapter, for example, which 
act as a revision aid. 

Most, but not all, of the 
Pascal language is covered, 
with each feature introduced 
as it fits naturally into the 
course of the text. There isa 
useful set of diagrams at the 
back illustrating the complete 
Pascal syntax, plus two very 
short appendices listing 
reserved words and standard 
functions. 

I particularly liked the 
occasional words of wisdom 
from Blaise Pascal, like “Man 
is only a reed, the weakest 
thing in nature; but he isa 
thinking reed”. Now there’s a 
good one next time you want 
to impress them down at the 
local. 


And Finally... 


And finally, a monster 
paperback from Papermac, 
How to Buy Software by Alfred 
Glossbrenner priced at £9.95, 
all about choosing the right 
software package. One look at 
this, and you’re quite likely to 
think ‘cripes, if it takes a book 
that big to explain how to 
choose a package, perhaps I 
won't bother after all’. It must 
also be said that it’s not 
strictly relevant to the QL. 
But given that there’s a 
growing library of third-party 
software becoming available 
for the QL, you might unearth 
in the course of this epic a few 
useful tips on how to set about 
picking the right program. 

It would take another 
double page spread to list all 
the areas it covers, so I'll just 
outline a few of the major 
topics: How to Read Software 
Ads and Reviews; The Media 
and the Message; How to 
Locate Programs and 
Software Review; 
Documentation and 
Demonstration; Where to Buy 
Software; the Twelve Sure- 
Fire Rules for Software 
Success; Free Software; and 
much, much more. 

A lot of it is mere 
commonsense, some of it is 
obvious, and what’s more of a 
problem, a lot of it is very 
American — American 
magazines, American prices 
and so.on. But it’s all good fun, 
and in parts, fascinating and 
laudibly informative. 
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software. 


COMMUNICATIONS 


system full advantage can be taken of the 
integrated features of the Q-CONNECT's 


If you'd like to know more, simply 


SINCLAIR QL 22 


VT100 terminal and enjoy secure ie. - 
communications with other QLs. | I'd like to know more about 


Tandata communications 
| for the QL. 


Thanks to Tandata you can now convert 
your QL into a powerful and comprehensive 
communicating terminal. You can contact 
distant databases such as British Telecom's 
Prestel system, private viewdata systems, 
traditional ASCII databases and electronic 
messaging/mail services such as Telecom 
Gold. You can even replace your existing 


The three smart modules have been 
designed to match the QL in style and for 
added convenience they stack together using 
vertical bus connectors without the need for | 
interconnecting cables. 


The modules are available separately, 
but by using all three as a complete matched 
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l Tandata Marketing Ltd., | 
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Albert Road North, Malvern, 
Worcs. WR14 2TL. Me g 
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‘Peace of Mind’ 
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language we looked at the 

structure or syntax of 
English and how it might be 
used to generate correct 
sentences. In this article we 
look at one method of 
analysing the structure of a 
sentence as the first step 
towards extracting its 
meaning. To produce a 
program that will analyse, or 
parse, any reasonable English 
sentence is well beyond the 
scope of SuperBasic but it is 
possible to write a program 
that will analyse a restricted 
set.of English sentences. The 
chat program given last 
month is ideal for our 
purposes. 

Given a simple construction 
such as article noun verb it is 
easy to check that a sentence 
is correct simply by 
superimposing it as if it werea 
template. For example “THE 
PROGRAM RUNS” has the 
correct form because each 
word is of the appropriate type 
(Fig 1). 


[: the previous article on 


The solution to this problem 
is to use a sort of dynamic 
template against which to 
match sentences. The most 
common method in use is the 
transition network, A 
transition network consists of 
a number of states or nodes 
connected by a number of arcs. 
Each arc is labelled by a 
grammatical type such asa 
noun or a <verb phrase>. To 
recognise the structure of a 
sentence you have to move 
through the transition 
network from beginning to 
end, taking arcs with labels 
that correspond to the 
grammatical type of the part 
of the sentence that you are 
currently examining. This is 
much easier to understand via 
an example. Level 1 in the 
grammar given above gives 
rise to the transition network 
in Fig 3. This means that in 


Sentence: 


Sentence: Sil cette >1s2——— — > s3 
Noun phrase Verb phrase 
ee > 
Noun phrase: s4----- BaeNull Ge. ——2 > 57 
Article °==--—= > Noun 
Adjective 
a > 
Verb phrase:  s8----- > 99 Null sig Null 544 
Verbe 2 > >—-—— ea 
Adverb 
bBo | 
Prep phrase: SZ > s13----- > s14 
Preposition Noun phrase 


Fig 4. The full transition network for figure two. 


the way that the choice 
between different possibilities 
is dealt with by a number of 
different arcs between a pair 
of states. Also the way that 
the possibly infinite repetition 
of prepositional phrases is 
dealt with by an arc that loops 


SSS 7s Sis22- == Bal ala 


Noun phrase Verb phrase 


Fig 3. Transition network of level 1 template grammar. 


recognising a sentence we 
need to go through three 
states. We move from state sl 
to state s2 when we recognise 
a noun phrase, and from state 
s2 to state s3 when we 
recognise a verb phrase. Of 
course, both noun phrase and 
verb phrase need a transition 
network of their own and this 


| gives rise to the idea of a 


recursive network in which 
each arc can itself be a 
reference to another 
transition network and 


Fig 1. An inflexible rule cannot cope with different constructions. 


Whereas “THE BIG 
PROGRAM RUNS” doesn’t fit 
because BIG isn’t a noun. 

In a very restricted 
language you can discover the 
form of a sentence by trying to 
match it with a number of 
possible templates. However, 
even the simple grammar 
given last month (changed to 
template form in Fig 2) would 
need an infinite set of 
templates to recognise all of 
the sentence types that it can 
generate. The reason for this 
is the presence of <PP> 
(prepositional phrase) at 
levels 3, 4, 5, etc. This gives 
rise to an infinite group of 
sentences ending in expressions 
such as “on the road on the 
bridge over the river by the 
mountain...” and soon. 


moving along an arc can 
correspond to moving through 
a number of sub-transition 
networks at lower levels. 

The complete recursive 
transition network for the four 
levels is shown in Fig 4. Note 


back to the same state (s10). 

As an example of using the 
transition network to analyse 
a sentence, consider 

THE BIG PROGRAM RUNS 

ON THE TINY COMPUTER 
Starting from s1 the first arc is 
labelled “noun phrase” and so 
to get from s1 to s2 we have to 
first traverse the noun phrase 
network. The first word of the 
sentence is an article so we 
move from s4 to s5, the next 
word is an adjective so we 
move from sd to s6 along the 
“adjective” arc and finally 
PROGRAM is a noun and so 
we move to s7, so completing 
the network. 

Completing the noun phrase 
network brings us to node s2 
in the sentence network and 
the process continues with the 
“verb phrase” network in an 
effort to move to node s3. In 
this case the sentence is of a 
form that can be generated by 
the grammar rules 1 to 4 
given above and so the 
transition from node 1 to node 
3 is achieved. 

If the sentence couldn’t be 


Fig 2. Four simple grammar rules in template form. The prepositional phrase 


can be divided ad infinitum. 


generated by the four rules 
there would be a node within 
one of the networks that it was 
impossible to leave because 
none of the arcs leaving it 
corresponded to the part of the 
sentence currently being 
analysed. In this case the 
analysis would fail and the 
sentence would be rejected. 
Just moving from one end of 
a transition network to the 
other simply tells you that a 
sentence can be generated by 
the rules of grammar that the 
network represents and this is 
not, in itself, very useful. The 
important point about a 
transition network is that the 
route that you follow through 
the network give you the 
structure of the sentence. To 
be more exact the path 
through the transition 
network can be used to 
generate a syntax, or parse, 
tree. A parse tree is a diagram 
that shows the internal 
structure of a sentence. Once 
again this is an idea that is 
easier to understand by way of 
an example. The parse tree of 
the simple sentence THE 
PROGRAM RUNS is shown in 
Fig 5. You should he able to 
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Fig 5. Parse tree for 
“THE PROGRAM RUNS”. 
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captures the essential detail of 
how the different parts of the 
grammar build up a sentence 
hierarchically. The aim of 
most language analysis 
programs is to build up a parse 
tree. 

Armed with the ideas of 
recursive transition networks 
and parse trees it is easy to 
write a program that will 
analyse any sentence that can 
be generated using the four 
rules of grammar given 
earlier. The key to turning a 
recursive transition network 
into an equivalent program is 
to notice that each path 
through the network can be 
thought of as a path through a 
program and the labels on 
each arc can be implemented 
as procedures that check for 
the appropriate syntax. For 
example the transition 
network for a sentence is 
equivalent to 
DEF PROcedure sentence 
noun_phrase 
verb_phrase 
END DEFine sentence 
where noun_phrase and verb_ 
phrase are procedures that are 
equivalent to the noun phrase 
and verb phrase transition 
networks. All that is left is to 
use a variable to flag whether 
or not a procedure has failed to 
find the type of syntax that it 
is looking for and devize a 
method of printing the parse 
tree as it is generated. 

In most syntax analysis 
programs the parse tree would 
be stored for further analysis 
but this would add too many 
lines of code to a 
demonstration program so in 
this case we just print it out. 

‘The method used is based on 
the fact that each time a 
procedure is called to analyse 
a section of the sentence this 
corresponds to a level one 
lower in the parse tree and the 
horizontal position of an item 
in the tree is related to the 
current position in the 
sentence. In the program 
given below each procedure 
adds one to the variable / 
when it is entered and 
subtracts one when it is 
finished thus / gives the 
current level of the tree that 
we are working on. Each 
procedure then prints an 
appropriate message, e.g. the 
noun phrase procedure prints 
“noun phrase” and so on, at 
line /*2 and column (p—1)*10 
where p is the number of the 
word currently being 
analysed. This simple method 
produces a reasonably tidy 
parse tree for very little work! 

The final program is written 
as a collection of procedures 
which are described in Table 


features are the way that an 
infinite sequence of 
prepositional phrases is dealt 
with by the REPeat loop in 
verb_phrase and the way that 
optional items such as adverbs 
are catered for by not testing 
the state of the variable fail. 
Notice that you must type 
sentences in upper case letters 
only and the program will give 
correct parse trees only for 
sentences that can be 
generated using rules 1 to 4 
given above. If a sentence 
could not have been generated 
using rules 1 to 4 then the 
program prints a parse tree up 
to the point that the analysis 
fails and then prints the word 
“fail” in the bottom left hand 
corner of the screen. Some 
sentences that the program 
will parse completely are — 


THE COMPUTER RUNS 


THE BIG PROGRAM RUNS 
ON THE TINY COMPUTER 


THE POOR PROGRAM 
DEBUGS SLOWLY ON THE 
COMPUTER 


The transition network parser 
‘is useful for analysing very 
regular and very simple forms 
of language. One use is in the 
translation of computer 
languages. For example, the 
rules for a valid arithmetic 
expression can be written as a 
simple grammar (see Fig 6) 
and these three rules can be 
converted into a transition 


see how the parse tree One. The most interesting Table One 


Procedure Purpose 

initialise Set up arrays and dictionary of words and 
their types. Type 1=article, 2=noun, 
3=adjective, 4=verb, 5=adverb, and 
6=preposition 

sentence parse sentence 

noun_phrase parse noun phrase . 

article check that the current word is an article 

adjective check that the current word is an adjective 

noun check that the current word is a noun 

verb_phrase parse verb phrase 

verb check that the current word is a verb 

adverb check that the current word is an adverb 

prepositional. parse prepositional phrase 

phrase 

split_words split the words in the sentence from the 
string S$ into the array word$ in such a way 
that word§(i) holds the ith word 

classify_words use w$ and-T to find the type of each word in 
the sentence. The type of word in word§(i) is 
stored in type(i) 

display print an element of the parse tree in the 
correct position. 


men and the women are old or 
is it just the men? A good 
analysis program will 
generally return all of the 
possible parse trees for a 
sentence and the correct one 
would be selected by 
subsequently processing on 
the basis of meaning. 

Even ignoring these 
difficulties there are still 
features of the English 
language that cannot be 
analysed using transition 
networks. For example, it is 
difficult to take account of 
plurality using transition 
networks. Ideally we would 
like an analysis program to 


reject noun phrases such as 
“This cars” but accept “These 
cars”. The solution to this sort 
of problem is to add some 
memory to the transition 
network to produce an 
augmented transition network 
or ATN. Most analysis 
programs use the ATN 
method to parse correctly a 
fairly wide range of sentences 
but the final resolution of 
ambiguity needs meaning to 
be taken into consideration. 


‘| Many A1 researchers are now 


looking at ways of using 
meaning to guide syntax 
analysis right from the very 
start. 


1. <EXPRESSION> —> <TERM>|[<TERM> +<EXPRESSION>]I'[<TERM> — <EXPRESSION>] 
2. <TERM> —> <FACTOR>|[<FACTOR>*<TERM>] | [<FACTOR>/<TERM>] 


3. <FACTOR> —> NUMBER |[-<FACTOR>]|<EXPRESSION> 


Fig 6. Arithmetic operations as a simple grammar. 


LISTING 


network and then into an 
equivalent program. Such 
programs lie at the heart of 
every compiler and 
interpreter — so language 
analysis is already big 
business! 

Computer languages are 
one thing but English, or any 
natural language, is quite 
another matter. For example, 
even the simple idea that 
words can be categorised 
according to their type is 
fraught with difficulties. Is the 
word “flash” a verb or a noun? 
It is anoun in “He saw the 
flash” but it is a verb in “The 
light will flash”. In short, it 
can be either depending on the 
structure of the sentence and, 
of course, it is this structure 
that we are trying to deduce! 

Another problem is that’ 
there are often a number of 
possible parse trees that will 
fit a sentence. For example 
does “The old men and 
women” mean that both the 


18 REMark SYNTAX 

15 MODE 4 

20 WINDOW 452,236,608,28 

30 initialise 

40 REPeat main_loop 

5@ AT 21,5: INPUT S$ 

62 split_words 

72 classify_words 

8@ CLS 

9a 1=8:p=1 

188 sentence 

118 IF fail THEN AT 22,5:PRINT "failed" 
128 END REPeat main_loop 

10®0® DEFine PROCedure initialise 

1005 W=19 

1010 DIM W$(W, 26),T(W) 

1015 DIM word$(208,28),type(2a) 

1020 DATA “A™,1, "THE", 1 

18038 DATA "COMPUTER", 2, "PRINTER", 2, "PROGRAM", 2 
1848 DATA "BUG", 2 

1050 DATA "BIG", 3, “TINY”, 3," POOR”, 3 

1968 DATA "WRITES", 4, "RUNS",4, "DEBUGS", 4 
167®@ DATA "PRINTS", 4 

1888 DATA "SLOWLY", 5, "FAST", 5, "QUICKLY", 5 
1898 DATA "ON",6,"TO",6, "UNDER", 6 

148@ RESTORE 

15@@ FOR I=1 TO W 

1516 READ W$(1I),T(I) 

15206 END FOR I 

1600 true=1 
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1618 false=0 
1999 END DEFine initialise 


2000 DEFine PROCedure sentence 

2085 1=1+1 

2006 display 1,p,"sentence" 

2818 noun_phrase 

2020 IF fail THEN END DEFine sentence 
2038 verb_phrase 

204@ IF fail THEN END DEFine sentence 
205@ fail=false 

2069 1=1-1 

20708 END DEFine sentence 


30008 DEFine PROCedure noun_phrase 

30@5 1=1+1 

3896 display 1,p,"noun phrase" 

3818 article 

3020 IF fail THEN END DEFine noun_phrase 
3832 adjective 

3048 noun 

3058 IF fail THEN END DEFine noun_phrase 
3060 fail=false 

3066 1=1-1 

3670 END DEFine noun_phrase 


4080 DEFine PROCedure article 
4016 1=1+1 

4938 IF type(p)=1 THEN 

4935 display 1,p,"article" 
4494S display 1+1,p,word$(p) 
4050 p=p+1 

4068 fail=false 

4670 ELSE 

4086 fail=true 

4098 END IF 

4995 1=1-1 

4108 END DEFine article 


4588 DEFine PROCedure adjective 
45180 1=14+1 

4520 IF type(p)=3 THEN 

4530 fail=false 

4546 display 1,p,"adjective" 
4550 display 1+1,p,word$(p) 
4566 p=p+1 

457® ELSE 

458® fail=true 

4598 END IF 

4595 1l=1-1 

4608 END DEFine adjective 


47®® DEFine PROCedure noun 
4710 1=1+1 

4728 IF type(p)=2 THEN: 
4730 fail=false 

474® display 1,p,"noun" 
475@ display 1+1,p,word$(p) 
4768 p=p+1 

477® ELSE 

4788 fail=true 

4798 END IF 

4793 1=1-1 

4795 END DEFine noun 


589808 DEFine PROCedure verb_phrase 
§@18 1=1+1 

5020 display 1,p,“verb phrase" 
5830 verb 

5040 IF fail THEN 

5@5@ END DEFine verb 

5@68 ELSE 

5®78 adverb 

5080 REPeat pp 

5885 IF p>S THEN fail=false: EXIT pp 
5898 prepositional_phrase 

5100 IF fail THEN EXIT pp 

5119 END REPeat pp 

513@ END IF 

5148 1=1-1 

515@ END DEFine verb_phrase 


6@@@ DEFine PROCedure verb 
6018 1l=1+1 

6028 IF type(p)=4 THEN 

6938 display 1,p,"verb" 
6040 display 1+1,p,word$(p) 
6856 fail=false 

6855 p=p+1 

60608 ELSE 

6078 fail=true 

6@86 END IF 
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6898 
6188 


6588 
6519 
6528 
6538 
6540 
6558 
6568 
6578 
65808 
6598 
66280 
6610 


7028 
7018 
70208 
7839 
7OLB 
7858 
7@55 
7068 


8008 
80108 
8820 
82308 
8oLe 
8258 
8868 
8870 
8888 
8298 
8108 
8118 


9888 
9818 
9015 
9817 
9819 
9828 
9830 
9840 
9O45 
9850 
9868 
9878 
9875 
9888 
9898 
9188 
9118 
9128 
9130 
91408 
9145 
9158 
91608 
9176 
9188 
91908 
9288 
9218 
9228 


9588 
9518 
9526 
9536 
9548 
9558 
9568 
9578 
9588 
9596 
9680 
9618 


9780 
97192 
9728 
9738 
9748 
9758 
9760 
97 %O 


1=1-1 
END DEFine verb 


DEFine PROCedure adverb 
1=1+1 
IF type(p)=5 THEN 
display 1,p,"adverb" 
display 1+1,p,word$(p) 
fail=false 
p=pt+l 
ELSE 
fPaill=true 
END IF 
1l=1-1 
END DEFine adverb 


DEFine PROCedure prepositional_phrase 

1=1+1 

display 1,p,"prep. phrase" 

preposition 

IF fail THEN END DEFine prepositional_phrase 
noun_phrase 

1=1-1 

END DEFine prepositional_phrase 


DEFine PROCedure preposition 
l=1+1 
IF type(p)=6 THEN 
display 1,p,"prep." 
display 1+1,p,word$(p) 
Pp=p+1 
fail=false 
ELSE 
fPail=true 
END IF 
l=1-1 
END DEFine preposition 


DEFine PROCedure split_words 
1=1:S=8 
FOR I=1 TO 20 

word$(I)="": type(1)=8 
NEXT I 
REPeat words 

REPeat first_char 

IF 1>LEN(S$) THEN EXIT first_char 

IF S$(1)=" ™" THEN 

1l=1+1 
ELSE 
EXIT first_char 

END IF 

END REPeat first_char 

IF 1>=LEN(S$) THEN EXIT words 
S=S+1 

word$(S)=S$(1) 

1l=1+1 

REPeat next_blank 

IF 1>LEN(S$) THEN EXIT next_blank 


IF S$(1)=" " THEN 

EXIT next_blank 
ELSE 

word$(S)=word$(S) & S$(1) 
1=1+1 
END IF 


END REPeat next_blank 
END REPeat words 
END DEFine split_words 


DEFine PROCedure classify_words 
FOR I=1 TO S 
FOR j=1 TO W 
IF word$(I)=w$(j) THEN 
type(1)=T(J) 
EXIT j 
ELSE 
NEXT Jj 
END IF 
END FOR j 
END FOR I 
END DEFine classify_word 


DEFine PROCedure display(1,c,a$) 
IF ec>6 THEN 

AT (1+3)*2, (c-6)*16 

ELSE 

AT 1*2, (c-1)*190 

END IF 

PRINT ag 

END DEFine display 


Next month — The final part of AI on the QL 


Memory and Meaning 


QL PAYROLL 


* WEEKLY, MONTHLY OR 4 WEEKLY x TAX, NI. P60, P35 CALCULATION 
* USER DEFINABLE DEDUCTIONS * COIN ANALYSIS/PAYMENT ROUNDING 


* SUPPORT COVER AVAILABLE 


£55 including postage and packaging (please add 15% VAT) 
Further details of this and other packages for Stock, Accounts, etc, are available from: 


TR COMPUTER SYSTEMS 


HEATHFIELD, HINE HEATH, STANTON, NR. SHREWSBURY, SALOP SY4 4NA 


Telephone: (093 924) 621 


PRISM QL14 COLOUR MONITOR - THREE MONTHS OLD - £199 ONO 
Hardly used as computer kept breaking! 
Disgruntled ex-QL owner now needs to sell this monitor quickly. 
Contact: N. 1. JONES on 0272 875313 evenings and weekends 


Q REVision by PADDY SOFTWARE 


The tree structures help the student to organise his/her revision and prevent 
the common mistake of trying to revise too much ata time. 

The clear and concise data is independent of the program — hence, subjects are 
interchangeable. 

At present all subjects are at ‘O’ level: 

Q PHYS & Q CHEM - both cover most of all syllabuses 

QHIST has Gladstone, Disraeli, WWI, Eastern Question inter alia 

25 machine code extensions to SuperBASIC (allowing better screen and file 
handling, etc) are supplied FREE with every Q REV. 

QREV and one subject £12 « Additional subjects £7 * Overseas £1 extra * 
phone 0726 83 2718 * SAE for details to: 

PADDY SOFTWARE, Paradise Cottage, Golant, Fowey, Cornwall PL23 1LH 


From the EPROM experts 


Q-P R 0 M Camb. Microelectronics Ltd. £6 9 . 9 5 
EPROM PROGRAMMER 


Easy to use, resident software, Vpp generator and ZIF socket. Fits exp.port. 

CHECK, READ, BLOW, VERIFY, CRC-8K, 16K Q-CART EPROM reader £5.95. 

DemoEPROM £4.95. DHOBI-2 EPROM eraser £22.95. All prices + VAT. 

Programmers also for BBC, C-64, Spectrum, ZX81, Gang programmer, etc. 
CAMEL PRODUCTS, One Milton Road, Cambridge CB4 1UY 

Tel: (0223) 314814 Telex: 81574 


QL 


MODEM + INTERFACE + SOFTWARE 


ONLY £95 INCLUDING VAT 
PLUS £1 P&P 


MPC Software 


Match poliiteeeees..ccccks..sct. apne £13.50 
Hyperdrive .... 
Lands of Havoc.. 


CAV OIG. casein nadapcee aOR 
Meteor Storm.... 
Cuthbert in Space .. 


Hopper ........ £12.50 Crazy Painter ............. 
Startrek... in BOL 00 Galactic Invaders/Star Guar: 
Quazimodo. £11.50 Flight Simulator 

Reversi ..... .. Phone Joystick Adapter ... 
WOVSTICKSIRE Rinna Meeix. ayetee awanie £11.00 BASIC Compiler 


CASHANFAM GN sines ware deer dolansas £60.00 
Transact — book-keeping... 


Project Plann .ic.esscccseenens sss 
Integrated Accounts .. 


Home Finance ........... £21.00 Decision Maker..... 

BGP eu rtoaraccuetaatre ceaasicness £52.00 ROWLINE R. SY. Me es 
Cartridge Doctor ...................5 £13.50 Swper MONNOl <....2.nerenraces alae 

Super Sprite Generator. Svee £27350 LC (EO TOME Set ne Oe 

Medic: Dis: DiiVe ss. iscecssscnasaaes £235.00 QL computer + 5 free games ... £190.00 


Free copy of Startrek with all orders over £25 before 30th November 
Plus many more bargains on Software and Hardware 
MPC Software, 72 Julian Road, West Bridgford, Nottingham NG2 5AN 


Tel: 0602 820106 


All prices include postage and VAT 


A PROGRAMME OF LINKED COURSES. 
INTRODUCTORY & ADVANCED APPLICATIONS. 


044 282 7302 Freepost, Tring, Herts. HP23 4BR. 


COMPUTER CLEANERS 
*& & & STOP LOCK UPS x * & 


RF (1 to 180 MHz) and voltage spike suppressed to clean mains supply and 
protect computers 


Plug-in adaptor (5a fuse) 
Trailing 4-way socket (13a fuse)... 


PRISM 2000 MODEM 1200/75BD MODAPTER I/F PLUS 
SOFTWARE FOR PRESTEL, MICRONET TELEX AND 
USER TO USER 


M.S. SERVICES 


92 FORTIS GREEN ROAD, LONDON N10 3HP 


QL SUPER CLONE PROGRAM 
Redproduce BYTE by BYTE any program written on microdrive. It removes any protection device 
(random number on formatting, invisible filename, etc.) 
ENTER QL SECRET 
It is a machine code program, 
Included: QL SUPER CLONE PROGRAM 
SPOOLER (MULTI-TASKING) 
ENGLISH MANUAL £18.95 
Send payment (Eurocheque, Girocheque) to. 
PERSOFT SOFTWARE, 187 Rue du Progres BP 159, 1000 Bruxelles, Belgium 


Simply plug either in—no wiring needed 


TONY FIRSHMAN SERVICES 
43 Rhyl Street, London NW5 3HB. 01-267 3887 


| WDSoftware ss Rotten value if you want pretty boxes... 
WDSoftware We keep prices down, software quality up! 
WD Utilities for Microdrives ... se FOR THE SINCLAIR: OL 7.50 (mdv) 


= .. £7.50 ( 
Save time and effort, avoid costly ‘fnistakes with our ‘riendiy programs ‘Singie-| ‘key commands to LOAD, AUN, DELETE. programs and 
files, or to BACKUP whole eer eee without accidentally overwriting! Prevent data losses by FORMATting several times with one 
command. Display a 60-file DIRECTORY. EXTEND your QL with up to six extra microdrives, Auto-matically number and date your 
developing programs. 
WD Utilities for Disks... pectic bates £10 on 5.25", £12 0n 3.5" 
“Different version for GST or ‘WMicroPeripheral Disks” 
All the benefits of the mdv utilities plus enhancements to use disks as well as four extra microdrives. Easy and SAFE backups from one to 
the other. Over 100 file names cisplayed at once. Cut out 95% of keystrokes for most file handling 
RefQL, the QL Database... sseiseeeeenee Frequent new editions 
wed ‘each mdv ‘Ors. 25" 4 “each ig. ag ‘disk, “plus. £(edition) 
An easy-to-use ARCHIVE (2) search/print program plus a growing database (usable with version 1 as well) and cheap updating. Where to 
find listings, reviews, instructions for printer connection, or hints and tips for the QL. Each edition holds 200 references more, cost £1 
more than the last. Edition 5 fills an mdv with 900 references, edition 6 will need two mdvs or one disk, will have 1,100 references. When 
you read this, we might have edition 9 with 1700! 
FOR QL, SPECTRUM AND BBE (0thers to follow) 
WD Morse Tutor... . £4 cassette or add media rice above 
The fast, efficient way to lean to ‘read Morse Code. You can ‘start ignorant. “Continue. beyond RYA and Ham Radio standard. It has more 
helpful features than any other program or dedicated machine at many times the price, Disks unsuitable for BBC+ 
Price include postage in Europe. Add £1 elsewhere. Access/Mastercard welcome. Send for more details or order from. 
| WDSoftware, Hilltop, St. Mary, Jersey, Cl 


Tel: 0534-81392 
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Pentathlete 
A Didcock 


The first half of this program was 
printed rather small last month, so 
we decided to reproduce the whole 
listing this month (if you entered 
the first half, start from the fine 
line on p.46). 

To play, build up power/speed 
using the left and right cursor 
keys — press SPACE to jump and 
hold it down to set the angle. 

1 REMark track_boot 

3 MODE 8 

4 LBYTES advi_title screen, 131072 

5 MERGE mdvi_UDG_data 

6 60 TO 32008 

7 MRUN mdvi_TRACK_and_FIELD 

10 hiscore=8 

20 ¢_level 

48 draw_main_screen 

5@ draw_power 

60 initialise 

bt 

90 REPeat game 

102 event_i: screen 

118 IF NOT qualify THEN end_routine: GO T0 20 
128 event_2: screen 

13@ IF NOT qualify THEN end_routine: GO T0 20 
148 event_3: screen 

138 IF NOT qualify THEN end_routine: GO TO 20 
162 event_4: screen 

178 IF NOT qualify THEN end_routine: G0 TO 20 
182 event_S: screen 

190 IF NOT qualify THEN end_routine: G0 TO 20 
282 next_level 

210 IF NOT qualify THEN end_routine: GO T0 20 
215 level=level+.5 

220 END REPeat game 

679 : 

708 DEFine FROCedure hi_scores 

705 LOCal i 

707 hi (event,@)=distance 

708 hid(event ,@)=as 

718 IF hitevent ,@) shi (event,1) THEN 

720 wr=wr+1 

730 FOR i=3 TO 1 STEP -1 

748 hi (event, i)=hi (event,i-1) 

758 = -his(event ,i)=his(event,i-1) 

76@ END FOR i 

7oz RETurn 

764 END IF 

766 IF hi (event ,@) shi (event 2) THEN 

778 hi (event ,3)=hi (event, 2) shi # (event ,3)=hi$ (even 
t,2) 

772 hi (event ,2)=hi (event ,B) shis (event ,2)=his (even 
t,@) 

774 wert 

776 RETurn 

778 END IF 

788 IF hi (event ,@) >hi (event ,3) THEN 

782) wr=wrtl 

784 hi (event ,3)=hi (event ,@)shis (event ,3)=hi#(even 
t,@) 

786 RETurn 

788 END IF 

798 END DEFine 

799: 

8@0 DEFine PROCedure reset 

810 STRIP #3,7,0 

820 AT #3,1,8:PRINT #3," ci 

830 INK #3,2: STRIP #3,7 

840 AT #3,1,36:PRINT #3,"20 " 

85@ END DEFine 

879 : 
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908 DEFine PROCedure time (type) 
91@ SELect ON type 
928 ON type=@: ft=DATE: RETurn 
930 ON type=1: ut=DATE-ft:ut$=DATES (ut) 
940 END SELect 
942 CSIZE 2,0 
945 INK SsSTRIP 2:AT 8,35:PRINT ut$(i9 T0);".@2" 
958 END DEFine 
999 : 
1008 DEFine PROCedure event_i 
1085 event=1:CLS #7:draw_shot:reset 
1006 pos=2: qual=0 
1087 INK #4,7:FOR i=2 TO 4:AT #4,1,14:PRINT #4,°00 
»@O" SEND FOR i 
1089 REPeat shot 
1018 PAPER @:INK 5 
1011 foul=2 
1015 CSIZE 2,1 
1020 x=B: y=3:power=8 
1825 AT x,ysPRINT CHR$(128) 
1030 INK @,7:FILL i:CIRCLE 12,32,.75:FILL @ 
1040 CSIZE 2,Q:INK 2:PAPER 4:AT 18,3sPRINT “YOUR G 
Or" 
1045 FOR i=102 TO 10 STEP -i:BEEP 300,i:END FOR i 
1052 BEEF 1000,5 
1055 AT 1@,3:PRINT " 
#3, Q:PRINT #3," " 
1056 n= 
1068 FOR shot_icop=i TO 68 
1078 keyl=KEYROW (1 
1072 IF keyi<>@ THEN BEEP 200,108 
1073 IF keyi2=64 AND keyi<100 THEN EXIT shot_loop 
1075 IF keyi<¢>@ AND keyi<>key2 AND power<25.5 THE 
N nentl 
1076 IF n=INT(level) THEN power=power+l:n=@ 
1Q88 IF power?8 AND (keyi=@ OR keyl=key2) THEN po 
wer=power-.2 
1090 AT #3,1,power:STRIP #3,Q:PRINT #3," "sSTRIP 
#3,7,0:AT #3,1,powerti:PRINT #3," “ 
1095 FOR i=i TO 12Q:END FOR i 
1100 key2=key! 
1128 END FOR shot_loop 
1138 IF shot_loop=6@ THEN foul=i 
1140 IF NOT foul THEN throw: GO TO 1200 
1150 INK 2:STRIP 1:FLASH 1 
1168 AT 14,2:PRINT "FOUL" :BEEP @,30,37,9000,7,0,0, 
a 
1178 FLASH @ 
1175 AT #4,pos,14:PRINT #4, "-----" 
1188 FOR i=1 TO 1000: END FOR i: BEEP 
1195 distance=2 
1200 pos=pos+1 
1218 score=scoretINT (distance#1@) 
1215 INK #4,2 
1238 IF score>? AND score<1@@ THEN AT #4,8,10:PRIN 
T #4,score 
1240 IF score>?9 AND score<1@Q@ THEN AT #4,0,9:PRI 
NT #4,s5core 
1245 IF score>999 AND score<1@@0@ THEN AT #4,0,8:P 
RINT #4,score 
1246 IF score>9999 THEN AT #4,0,7:PRINT #4,score 
1258 IF NOT foul THEN INK 2:FILL 1:CIRCLE x,y,.8:F 
ILL @ 
1270 draw_shot 
1288 reset 
1282 INK 4 
1283 FOR i=1 TO 1500:END FOR i 
1285 AT 11,1sPRINT " v4 
1286 AT 13,1:PRINT " ” 
1288 STRIP 4:AT 14,2:PRINT ", " 
1298 hi_scores 
1291 print_hi_scores 
1292 power=8 
1293 IF pos=5 THEN EXIT shot 
1295 END REPeat shot 
1296 qualify=qual 
1297 END DEFine 
1299 : 


"; AT #3,1,power:STRIP 


1300 DEFine PROCedure throw 

1305 CSIZE 2,1:STRIP O: INK 5 

1310 AT x,y:PRINT " ":AT x,ytisPRINT CHR$(i29) 
1328 BEEP 1000,5 

1325 angle=i@: STRIP #3,7: INK #3,2 

1326 AT #3,1,36:PRINT #3, angle 

1330 REPeat key 

1340 IF KEYROW(1)=@ OR angle>8@ THEN EXIT key 

1358 angle=anglet2 

1360 AT #3,1,34:PRINT #3, angle 

1378 END REPeat key 

1375 x=22: y=37: INK 0,7 

1376 FILL 1:CIRCLE x,y,i: FILL @ 

1377 IF angle<S@ THEN a=(angle/1Q.5) 

1378 IF angle>49 THEN a=(1/angle) #200 

1379 b=angle/48 

1388 n=0 

1384 i= 

1385 REPeat launch 

1386 i=i+l 

1398 xl=x: yl=y 

1402 IF i>power#.7 AND NOT n THEN a=a-(a/3): b=-(b 
#2): n=l 

1410 x=x+a: y=ytb 

1420 FILL 1:INK 4:CIRCLE x1,yl,1:FILL @ 

1430 FILL i: INK @,7:CIRCLE x,y,1:FILL 6 

1440 IF y<=3@ THEN EXIT launch 

1450 END REPeat launch 

1468 draw_shot 

1470 FILL i: INK Q,7:CIRCLE x,y,1:FILL @ 

1475 di=1i 

1488 FOR i=26 TO x 

1498 di=dit+l 

1518 END FOR i 

1520 distance=((di/35)#7)+(INT(RND(@ TO 20))/180) 
1530 CSIZE 2,0: INK 2 

154@ AT 11,1:PRINT "YOUR THROW WAS “;distance;"m" 
1550 IF distance>=15,28 AND NOT qual THEN INK @: A 
T 13,1:PRINT "YOU HAVE QUALIFIED": qual=1 

1560 IF distance>=1@ THEN AT #4,pos,14:PRINT #4,di 
stance: ELSE AT #4,pos,15:PRINT #4,distance 

1570 END DEFine 

TUNED 

2000 DEFine PROCedure event_2 

2005 event=2 

2018 pos=2:level2=1:lim=.2 

2815 CLS #7 

2020 INK -#4,7:FOR i=2 TO 4:AT #4,i,14:PRINT #4,"00 
»@@"sEND FOR i 

2021 IF INT(level)=3 THEN level2=2 

2022 IF INT(level)=2 THEN lim=1 

2025 qual=0 

2027 REPeat sprint_loop 

2030 draw_sprint 

2035 time (Q):time (i): INK Q:AT 8,30:PRINT "TIME:" 
2040 foul=@: tot=1: gm=1: fin=290: power=8 

2045 reset 

2050 CSIZE 2,1: INK S:STRIP 2:AT 8,14:PRINT CHRE(13 
Q) 

28535 co=14 

2060 n=0: keyl=Q: key2=@: char=130: total=380 
2065 CSIZE 2,0: INK 2:PAPER 4:AT 10,3:PRINT "GET RE 
ADY..." 

2078 le=RND(988 TO 1420) 

2075 FOR i=1 TO lesEND FOR i 

2080 BEEP 1000,1:AT 12,3:PRINT "GO!" 

2083 time (8) 

2085 PAUSE 40000 

2086 AT #3,1,power:STRIP #3,0:PRINT #3," " 

2090 AT 10,3:PRINT " "SAT 12,3sPRIN 
fe 

2100 REPeat sprint_l 

2185 IF char=131 THEN time (1) 

2118 CSIZE 2,1:STRIP 2: INK 5 

2128 keyil=KEYROW(1 

2125 BEEP 300,100 

2130 IF keyl<>@ AND keyl<>key2 AND power<23.9 THE 
N n=ntl 


2135 IF n=level2 THEN power=powerti:n=0 

2140 IF power>8 AND (keyi=@ OR keyi=key2) THEN po 
wer=power-Lim 

2145 AT #3,1,power:STRIP #3,0:PRINT #3," "sSTRIP 
#3,7,Q:AT #3,1,power+i:PRINT #3," * 

2150 key2=keyi 

2155 total=total-power 

2160 IF char=13@ THEN char=131: ELSE char=130 
2162 IF co?=32 THEN co=@:INK #6,7:POINT #6,732,0: 
POINT #6, 732,100 

2165 IF NOT gm THEN AT 8,14:PRINT " "sPAN #6,-pow 

er:AT 8,14:PRINT CHR#(char} 

2178 IF gm THEN AT 8,14:PRINT " “sPAN #6,-25:AT 8 
l4:PRINT CHR$ (char) 

2175 co=cotpower 

2180 IF total<i@@ AND tot THEN LINE #6,732,100 TO 
682,08: tot=2 

2182 IF total<10@ THEN fin=fin-power 

2183 IF fin<=@ THEN EXIT sprint_l 

2185 gm=0 

2198 END REPeat sprint_i 

2195 tme=ut$(19 TO )+(INT(RND(1 TO 98))/10@) 

2200 CSIZE 2,@:STRIP Z:INK 5 

2205 IF tme<i@ THEN AT 8,35:PRINT "@"stme: ELSE AT 
8,35:PRINT tme 

2210 BEEP 1000, 1 

2215 IF tme<i@ THEN AT #4,po5,14:PRINT #4,"Q";tme: 
ELSE AT #4,pos,14:PRINT #4,tme 

2220 pos=postl 

2225 IF NOT qual AND tme<12.65 THEN qual=1:INK @:5 

TRIP 4:AT 13,isPRINT "YOU HAVE QUALIFIED" 

2230 score=scoretINT ( (3@-tme) #15) 

2232 INK #4,2 

2235 IF score>9 AND score<i@@ THEN AT #4,0,1@:PRIN 

T #4,5core 

2240 IF score>9? AND score<1@QQTHEN AT #4,8,9:PRIN 

T #4,5core 

2243 IF score>999 AND score<1@Q00 THEN AT #4,0,8:P 

RINT #4,score 

2246 IF score>9999 THEN AT #4,0,7:PRINT #4,score 

2258 hi_scores_2 

2255 print_hi_scores 

2268 FOR i=1 TO 1508: END FOR i 

2265 AT 13,1:STRIP 4:PRINT " 7 

2278 IF pos=5 THEN EXIT sprint_loop 

2275 END REPeat sprint_loop 

2288 qualify=qual 

2285 END DEFine 

2999 + 

3002 DEFine PROCedure event_3 

SOO5 event=3:pos=2:CL5 #7 

3010 INK #4,7:FOR i=2 TO 4:AT #4,i,14:PRINT #4, "00 
»O@":END FOR i 

3@15 qual=8 

3028 REPeat’ jav_loop 

3825 draw_jav 

3038 foul=@: power=8: reset: dist=0: me=8 

3035 key1=0: key2=0: char=132:n=0:co=0 

3048 CSIZE 2,1:STRIP 2: INK SsAT 9,BsPRINT CHRE(132 
) 

3045 INK 7:LINE 25,26 TO 35,26 

3050 CSIZE 2,0: INK 2:PAPER 4:AT 10,3:PRINT "YOUR G 
De" 

3Q55 FOR i=1@8 TO 10 STEP -1:BEEP 300,i:END FOR i 

3056 PAUSE 40000 
3068 BEEP 1002,5 
3865 AT 18,3:PRINT " 
#3,Q:PRINT #3," " 
3067 CSIZE 2,1 

3070 FOR i=i 70 34 
3075 key =KEYROW (1) 

30608 BEEP 300,120 
3083 IF keyi=64 AND keyl<1@0 THEN EXIT i 

3085 IF keyli?8 AND keyl<>key2 AND power<23.5 THE 
N n=n+l 

3090 IF n=INT (level) THEN power=power+1:n=2 

S095 IF power?8 AND (keyl=@ OR keyl=key2) THEN po 
wer=power-. 2 


"SAT #3,1,powers STRIP 


3108) AT #3,1,power:STRIP #3,Q:PRINT #3," "sSTRIF 
#3,7,8:AT #3,1,powertisPRINT #3," " 
3105 key2=keyl 


Sil@ IF char=133 THEN char=132: ELSE char=133 
3115 INK 2:STRIP 2 
3120 LINE 25,26 70 35,26:AT 9,8:PRINT " ":PAN #8, 


-1@:INK SAT 9,8:PRINT CHRS(char):INK 7:LINE 25,26 
TO 35,26 

3124 co=cotl 

3125 IF co=1@ THEN INK 2:CSIZE 2,0:STRIP 1:AT 19, 

S7:PRINT me+iB 

3126 IF co=1@ THEN LINE #8,1451,102 TO 137i,@:co= 

@:me=me+10 

3127 CSIZE 2,1:INK S:STRIP 2 

3182 END FOR i 

3185 IF i=34 THEN foul=1 

3186 dist=-((33-i)):power=power #1, 14 

3198 IF NOT foul THEN throw_jav:G0 70 3200 

3191 CSIZE 2,0 

3192 distance=0 

3193 STRIP 1s INK ZsFLASH 1:AT 14,2:PRINT "FOUL": BE 

EP 8,30,37,9000,7,0,0,0:FLASH 8 

3194 FOR i=1 TO 10@Q:END FOR is BEEP 

3195 INK #4,7:AT #4,pos,14:PRINT #4,"-----" 

3208 pos=post+! 

3205 INK #4,2 

3210 IF score>? AND score<i0@ THEN AT #4,0,10:PRIN 

T #4,score 

3215 IF score>99 AND score<1@Q@ THEN AT #4,0,9:PRI 

NT #4,score 

3220 IF score>999 AND score<1@000 THEN AT #4,0,8:F 

RINT #4,score 

$221 IF score>9999 THEN AT #4,0,7:PRINT #4,score 

3225 hi_scores 

3230 print_hi_scores 

3235 FOR i=1 TO 150Q:END FOR i 

3236 STRIP 4 

3240 AT 11,1:PRINT " 

PRINT “ 

3241 AT 14,2sPRINT " a 

3245 IF pos=S THEN EXIT jav_loop 

3250 END REPeat jav_loop 

3255 qualify=qual 

3268 END DEFine 

a279-3 

3300 DEFine PROCedure throw_jav 

3305 BEEP 1000,5 

3310 angle=10:STRIP #3,7: INK #3,2 

3315 AT #3,1,36:PRINT #3,angle 

3328 REPeat key_jav 

3325 IF KEYROW(1)=@ OR angle78@ THEN EXIT key_jav 

3330 angle=anglet3 

3335 AT #3,1,36:PRINT #3,angle 

3340 END REPeat key_jav 

3342 BEEP 1000,5 

3345 x=25: y=28 

3358 h=angle/4@: a=angle/12:b=SQRT(1@0-(ata) ) shh=1 

ral=arha=0 

3355 INK 2:LINE 25,26 TO 35,26: INK 7:LINE x,y TO x 

+b yta 

3356 IF angles5@ THEN power=power-(angle/1@) 

3357 i=t 

3358 IF angle<3@ THEN power=power-1 

3360 REPeat mve_jav 

3342 yl=y 

3370 PAN #6,-18 

3373 co=cotl: dist=dist+i 

3374 IF co=i@ AND me<9@ THEN INK 2:CSIZE 2,8:STRIP 
L:AT 19,37:PRINT metid 

3375 IF co=i® THEN LINE #8,1451,108 TO 1371,Q:co=2 
rme=net18 

3588 IF (y+h)+a¢o4 AND NOT ha THEN y=y+th 

3384 IF ytat28 THEN EXIT mve_jav 

3385 INK 4:LINE x,yl TO xtb,yl+alsINK 7:LINE x,y T 
O xth,yta 

3386 al=a 

3390 IF i>(power*3)#.7 AND hh THEN hh=@:h=-h:a=-a: 
ha=O 


"SAT 13,1: 


® 


3396 IF i>(power#3)#.5 AND hh THEN ha=i 

3397 i=i+t 

3399 END REPeat mve_jav 

3402 FAN #8,-29 

3405 INK 4:LINE x,yl TO xtb,yitalsINK 7sLINE x,yta 
TO xtb,y+(ata) 

S410 CSIZE 2,1: INK 2:STRIP 4 

3412 distance=dist+(INT(RND(1 TO 98)) /1@@) 

3413 CSIZE 2,08 

3414 IF distance<1 THEN distance=@:dist=distance 

S413 AT 11,1:PRINT "YOU THROW. WAS ";distance; "mn" 
3420 IF distance>7@.23 AND NOT qual THEN INK B:AT 
13,1:PRINT "YOU HAVE QUALIFIED": qual=1 

3425 score=score+(dist#3) 

3430 IF distance<i@ THEN INK #4,7:AT #4,pos,14:PRI 
NT #4,"@";distance: ELSE INK #4,7:AT #4,pos,14:PRI 

NT #4, distance 

3440 END DEFine 

3999 + 

4000 DEFine PROCedure event_4 

4005 event=4:pos=2:CLS #7: qual=0 

4Q1@ INK #4,7:FOR i=2 TO 4:AT #4,i,14:PRINT #4,"00 
»QO":END FOR i 

4015 REPeat lo_sprint_loop 

4928 draw_lsprint 

4025 time (@):time (1): INK Q:AT 8,3@:PRINT "TIMEs" 

4038 foul=O:tot=1:gm=1:fin=290: power=8; Limi t=23.9 

4035 reset 

4040 CSIZE 2,1: INK S:STRIP 2:AT 8,14:PRINT CHR#(13 

Q) 

4045 co=14:n=0: key1=0: key2=0: char=130:total=740:po 

w_to=0 

4050 CSIZE 2,0: INK 2:PAPER 4:AT 1@,3:PRINT "GET RE 

ADY vase 

4055 le=RND (1008 TO 1480) 

4060 FOR i=1 TO lezEND FOR i 

4065 BEEF 1000,1:AT 12,3:PRINT “GO!" 

4070 time (Q) 

4075 FAUSE 40000 

4080 AT #3,1,power:STRIP #3,:FRINT #3," " 

4085 AT 10,3:PRINT " "SAT 12,3: PRIN 


Tu 1 


4090 REPeat lo_sprint_l 


4095 IF char=13@ THEN time (1) 

4100 CSIZE 2,1:5TRIP Z:INK 5 

4185 keyl=KEYROW(1) 

4i1@ BEEP 202,128 

4115 IF keyi<?@ AND keylskey2 AND power<limit TH 
EN n=n+i 

4117 IF power<limit AND n=INT(level) THEN power=p 
ower+1 


4120 IF n=INT(level) THEN n=: pow_to=pow_totpower 
4122 IF power?=limit AND power?8 THEN power=power 
=} 

4125 IF power?8 AND (keyl=@ OR keyl=key2) AND pow 
er<limit THEN power=power-. 1666467 

4130 AT #3,1,poweriSTRIF #3,Q:PRINT #5,° “:STRIP 
#3,7, 0:47 #3,1,powertisPRINT #3," ° 


4125 weyd=keyl: iF total+25 THEN total=total-(powe 
r*, 99) 
4148 IF char=i3@ THEN char=131: ELSE char=i30 


4143 IF pow_to224@ AND limite1@ THEN limit=INT (li 
mit-(total /4@)) :pow_to=0 

4145 IF co2=38 THEN co=O: INK #6,7:PDINT #4,732,Q: 
POINT #6, 732,180 

4i46 CSIZE 2,i:STRIP Zs INK 5 

4450 IF NOT gm THEN AT §,14:PRINT " "SPAN #6,-pow 

ersAl 8,14:PRINT CHR# (char) 

4155 IF gm THEN AT &,14:PRINT " "sPAN #4,-25:AT 6 
sl4:FRINT CHRE (char) 

4168 co=cotpower 

4165 IF total<1@@ AND tot THEN LINE #6,730,1@2 10 
680,0: tot=0 

4170 IF total<1@@ THEN fin=tin-power 

4175 IF ¢in<=@ THEN EXIT lo_sprint_l 

4180 gm=0 

4185 END REPeat lo_sprint_] 

A195 tme=ut$(19 TO )+(INT(RND(1 TO 98))/i1@@) 


QL User/November 1985/45 


THE 


4200 CSIZE 2,0:STRIF 2:INK 5 

4205 AT 8,35:PRINT tme 

4210 BEEP 1000,1 

4215 AT #4,pos,14:PRINT #4,tme 

4228 pos=post! 

4225 IF NOT qual AND tme<21.54 THEN qual=1:INK @:5 

TRIP 4:AT 13,1:PRINT "YOU HAVE QUALIFIED" 

4230 score=score+INT ( (40-tme) #15) 

4232 INK #4,2 

4235 IF score?9 AND score<i@@ THEN AT #4,0,1@:PRIN 

T #4,score 

4240 IF score>99 AND score<1@00 THEN AT #4,0,9:PRI 

NT #4,score 

4245 IF score?999 AND score<i@Q@0 THEN AT #4,0,8:P 

RINT #4,score 

4246 IF score?9999 THEN AT #4,0,7:PRINT #4,score 

4258 hi_scores_2 

4255 print_hi_scores 

4260 FOR i=1 TO 1500:END FOR i 

4265 AT 13,1:STRIP 4:PRINT " s 
278 IF pos=5 THEN EXIT lo_sprint_loop 

4273 END REPeat lo_sprint_loop 

4288 qualify=qual 

4285 END DEFine 

4999 : 

5000 DEFine PROCedure event_5 

S885 event=S: pos=2s qual=O:lim=, 2 

5010 INK #4,7:FOR i=2 TO 4:AT #4,1,14:PRINT #4,"00 
OO" SEND FOR i 

S@11 IF INT(level)=2 THEN lim=.5 

o@12 IF INT(level)=3 THEN lim=i 

S@15 REFeat long_jump 

5028 draw_jump 

3825 foul=0:; power=6; n=0:key1=@: key2Z=@:char=130:x 
=7:y=2 

3030 reset 

S035 PAPER ZINK 1:CS1IZE 2,1:AT 7,2:PRINT CHRE(130 
) 

5040 CSIZE 2,0: INK 2:PAPER 4:AT i@,3:PRINT “YOUR 6 
O52 

5045 FOR i=120 TO i@ STEP -i:BEEP 300,i:END FOR i 
oO46 PAUSE 40008 

5058 BEEP 1008,5 

SO55 AT 10,3:FRINT " a 
#35, Q:PRINT #5," " 

5@56 CSIZE 2,1:PAPER 2:INK 1 


AT #3,1,power STRIP 


5068 REFeat jump_] 

S065 key t=KEYROW(1) 

5078 BEEF 200,100 

3075 IF keyl<>0 AND keyl<>keyZ AND power<23.5 THE 
N nenti 

5088 IF n=1 THEN power=powerti:n=0 

S@85 IF power 38 AND (keyi=@ OR keyi=key2) THEN po 
wer=power-lim 

5086 IF key1>=64 AND keyi<i@@ THEN EXIT jump_l 
5898 AT #3,1,power:STRIP #3,Q:PRINT #3," ":STRIP 
#3,7,O:AT #3,1,powerti:PRINT #3," " 


5095 key2=keyi 

5182 y=yti 

S105 IF char=130 THEN char=i31: ELSE char=130 
S118 AT xyy-LiPRINT " "SAT xyysPRINT CHR$(char) 
5125 IF keyi=64 THEN EXIT jump_1 

o138 FOR i=i TO 9@:END FOR i 

S135 IF y>=31 THEN foul=i: EXIT jump_] 


S158 END REPeat jump_l 

S152 IF y)=31 THEN foul=1 

5155 IF NOT foul THEN leap: GO TO 5200 
5168 INK 2:STRIP 1:FLASH 1:CSIZE 2,0 
5165 AT 14,2PRINT "FOUL":BEEP @,30,37,9000,7,0,0, 
i) 

517@ FLASH B 

S175 AT #4,pos,14:PRINT #4, "----- i 
5188 FOR i=1 TO 1002: END FOR i: BEEP 
5185 distance=0 

5200 pos=pos+! 
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5285 hi_scores 

3218 print_hi_scores 

5215 FOR i=1 TO 2@00:END FOR i 

5228 IF pos=S THEN EXIT long_jump 

5225 END REPeat long_jump 

5238 quality=qual 

5240 END DEFine 

5299 + 

5300 DEFine PROCedure leap 

5318 angle=10:STRIP #3,7: INK #3,2 

S315 AT #3,1,36:PRINT #3, angle 

3328 REPeat angle_jump 

5325 IF KEYROW(1)=@ OR angle>8@ THEN EXIT angle_j 

ump 

5338 angle=anglet+3 

5335 AT #3,1,36:PRINT #3,angle 

5340 END REPeat angle_jump 

5345 BEEP 320,5 

5346 IF angle?=58 THEN decr=(4.2/angle)#1@: ELSE d 

ecr=(angle/53) 

5350 dist=(power*4) #decr 

S302 distance=-((30-y) *.5) 

S355 INK 1 

5356 ne=4 

3360 AT x,y:PRINT " "SPAN #8,-18:STRIF ne:AT x-1,y 
:PRINT CHR (134) 

5365 x=x-1 

3366 FOR i=i 10 158 :END FOR i 

5370 AT xyy:PRINT " "sPAN #8,-10:S7RIP nesAT x-1,y 
PRINT CHRE(i34) 

S375 x=x-1 

5376 INK #8,2 

5380 FOR i=1 TO idist/3) 

SSB5 FOR 3=1 TO o@+END FOR j 

5290 PAN #8,-18 

os95 distance=distancet,5 

5408 END FOR i 

S418 IF distances=! THEN ne=6: ELSE ne=2 

5420 AT x,y:PRINT " "sPAN #6,-15;C51ZE 2,0:AT (x#2 
)+i,y:C5IZE 2,1:PRINT CHR$(i134) 

5438 FOR i=1 TO 15QsEND FOR i 

S435 CSIZE 2,0:AT (x#Z)+i,y:CSIZE 2,t:PRINT * "3ST 
RIP nesPAN #8,-Z0:AT x+2,y:PRINT CHRE(134) 

2436 distl=distance 

5438 IF distance<=@ THEN distance=2 

5448 IF distance?@ THEN distance=distance+ (INT (RND 
(1 TO 49))/18@) 

5445 CSIZE 2,0:STRIP 4: INK 2 

3446 AT 1,1:PRINT "YOUR JUMP WAS "sdistance;“m" 

5458 IF distanceci@ THEN AT #4,pos,14:FRINT #4,"2" 
distance: ELSE AT #4,pos,14:PRINT #4,distance 
S455 BEEP i000, 1 

3468 IF NOT qual AND distance>7.26 THEN qual=i: INK 
O:STRIP 4:AT 13,1:FRINT "YOU HAVE QUALIFIED" 

5465 score=scoret+INT ((distance*i@) #4) 

5478 INK #4,2 

9475 IF score>? AND score<i@@ THEN AT #4,0,10:PRIN 

T #4,score 

5488 IF score>99 AND scores {QQQTHEN AT #4,0,9:PRIN 

T #4,score 

5485 IF score>999 AND score<1@@@@ THEN AT #4,0,8:P 

RINT #4,score 

5486 IF score>9999 THEN AT #4,0,7:PRINT #4,score 

5498 END DEFine 

9999 : 

10008 DEFine PROCedure draw_shot 


10025 INK @ 

10010 FILL 1:CIRCLE 15,30,6,1.8,0:FILL @ 
10015 INK é 

10020 ARC 50,35 TO 50,25,-1.5 
10038 ARC 85,43 TO 85,17,-1.5 
10035 ARC 120,46 TO 120,14,-1.5 
10040 INK 7 

10045 CSIZE 2,0 

10050 STRIP 1 

10068 AT 21,13:PRINT "7m" 

10065 AT 21,23:FRINT "15m" 
10070 AT 21,33:FRINT "22m" 


10088 print_hi_scores 
10072 STRIP 4: INK Q:AT 8,1:PRINT “QUALIFYING DISTA 
NCE = 15. 28m" 
10095 END DEFine 
11008 DEFine PROCedure draw_sprint 
11018 INK #4,2 
11028 AT #4,0,24:PRINT #4, "2" 
11025 INK #4,6 
11030 AT #4,6,9:PRINT #4, "100m 
11040 INE #3,2: STRIP #3,7 
11050 AT #3,1,1:PRINT #3, “SPEED: " 
11048 print_hi_scores 
11078 OPEN #6,scr_492xS@al0xi5z 
11080 PAPER #4,2 
11098 CLS #6 
11180 INK #4,7 
11118 LINE #6,253,8 T0 303,108 
11120 FOR 1=1 TO 730 STEP 52 
11138 POINT #6,i,@:POINT #6,1,100 
1114@ END FOR i 
11145 CSIZE 2,8 
11150 INK Q:AT 8,1:STRIP 4:PRINT "QUALIFYING TIME 
= 12,655" 
11200 END DEFine 
11999 : 
12000 DEFine PROCedure draw_jav 
12005 OPEN #8,scr_492x25a10x183 
12010 PAPER #8,2: INK #8,7: CLS #8 
12028 print_hi_scores 
12038 INK #4, 2:87 #4,0,24:PRINT #4,"5" 
12035 INK #4, 6:47 #4,6,9sPRINT #4, "JAVELIN " 
12036 CSIZE 2,0 
12040 INK @: STRIP 4:AT 3,i:FRINT "QUALIFYING DIST 
ANCE = 72. 23m" 
2050 FILL #8,1:LINE #8,1410,108 TO 1338,8:LINE #8 
51450,122 10 1378,Q:FILL #8,2 
12060 PAPER #3, 1: INK #8,1 
12065 FILL #8,1:LINE #8,1451,180 TO 1371,@:LINE #8 
:1520,108 TO 1520,0: FILL #6,0 
12066 INK #8,6 
12078 END DEFine 
12595 ter 
13000 DEFine FROCedure draw_Isprint 
13018 INK #4,2 
13020 AT #4,0,24:PRINT #4,"4" 
13025 INK #4,6 
13030 AT #4,6,9:PRINT #4, "200m 
13048 INK #3,2: STRIP #3,7 
13068 print_hi_scores 
13070 PAPER #6,2:CLS #6: INK #4,7 
13088 LINE #4,253,0 TO 303,100 
13098 FOR i=1 TO 730 STEP 52 
13108 POINT #4,i ,QsPOINT #6,1, 100 
13118 END FOR i 
13120 CSIZE 2,0 
13130 INK @:AT 8,1:STRIP 4:PRINT “QUALIFYING TIME 
= 21,545" 
13140 END DEFine 
13999 : 
14800 DEFine PROCedure draw_jump 
14005 CLS #7:CSIZE 2,8 
14010 INK #4,2:AT #4,0,24:PRINT #4, "5" 
14020 INK #4,4:AT #4,6,9:PRINT #4,"LONG JUMP" 
14030 INK #3,2: STRIP #3,7: print_hi_scores 
14048 INK O:AT G,1:STRIP 4:PRINT "QUALIFYING DISTA 
NCE = 7.2m" 
14050 WINDOW #8,492,25, 10,145 
14060 PAPER #8,2:CLS #8: INK #8,7:FILL #8,1:LINE #8 
351,108 TO 1271, Q:LINE #6,1400,100 TO 1320,0:FIL 
L #8,0 
14070 WINDOW #8,492,50, 10,133 
14082 PAPER #8,4: INK #8,6 
14090 FILL #8,1:LINE #8,725,108 TO 660,Q:LINE #8,7 
80,108 TO 760,0: FILL #8, 
14100 PAN #8,-48 
14118 END DEFine 
18999 : 
19000 DEFine PROCedure hi_scores_2 


19018 LOCal i 

19015 hi (event ,@)=tme 

19820 hi (event ,@) =at 

19025 iF hitevent,@)shi (event,1) THEN 

19038 wrewrtt 

19835 FOR i=3 TO 1 STEP -1 

19848 = hi (event,i)=ni (event,i-i) 

19045 hi#levent,i)=his(event,i-1) 

19858 END FOR i 

19855 RETurn 

19068 END IF 

19865 IF hi (event ,@)shi (event 2) THEN 

19070 fi (event, 3)=hi (event, 2) sni$(event 3) =hiF (ev 
ent ,2) 
19075 
ent ,@) 
19888 wr=wr+t 

19085 RETurn 

19090 END IF 

19095 IF hi (event ,@)<hi (event ,3) THEN 

19096 wr=wr+l 

19097 hi event ,3)=hi (event 8) shi$ (event ,3)=hiF(ev 
ent ,@) 

19098 RETurn 

19899 END IF 

19188 END DEFine 

195999: 2 

20000 DEFine PROCedure draw_main_screen 
20010 WINDOW 512,256,0,8 

20020 PAPER 4 

20030 SCALE 120,0,8 

20040 BORDER 5,1 

20058 CLS 

20068 OPEN #3,scr_S11x30a2x226 

20078 PAPER #3,7 

20088 BORDER #3,1,3 

20098 CLS #3 

20100 OPEN #4,s5cr_492x7dal0x5 

20112 PAPER #4,0 

20120 BORDER #4,1,7 

20130 CLS #4 

20140 INK #4,2 

20145 CSIZE #4,2,8 

20152 AT #4,0,O:PRINT #4, "SCORE: 20020 

1 LEVEL 8"; level 

20168 INK #4,5 

20188 LINE #4,235,86 TO 235,24 

20190 LINE #4,0,24 TO 480,24 

20202 INK #4,7 

20218 AT #4,2,2:PRINT #4, "FIRST: " 

20228 AT #4,3,1:PRINT #4, "SECOND: " 

20238 AT #4,4,2:PRINT #4,"THIRD:" 

20278 INK #4,3 

20288 AT #4,1,24:PRINT #4,"WORLD RECORDS" 
20298 INK #4,7 

20300 AT #4,2,21:PRINT #4, "1st" 

20218 AT #4,3,21:PRINT #4,"2nd" 

28328 AT #4,4,21:PRINT #4,"3rd" 

20468 INK #4,6 

20478 AT #4,6,0:PRINT #4," 
RLD RECORDS: 02" 

20400 INK #3,2 

26498 AT #3,1,1:PRINT #3, "POWER: * 

20500 AT #3,1,29:FRINT #3,"ANGLE:":STRIP SsAT #3,1 
sOOrFRINT #3,"00 " 

20518 END DEFine 

20599 : 

20600 DEFine PROCedure draw_power 

28085 RESTORE 30000 

20618 FOR i=8 10 24 STEP 3 

20611 READ col 

20615 STRIP #3,col 

20628 AT #3,By;i:FRINT #3," " 

20630 STRIP #3,7,0::AT #3,1,i:PRINT #3," " 
20668 END FOR i 

20678 END DEFine 

20999 + 

21008 DEFine PROCedure initialise 


hi (event ,2)=hi (event ,@) shis (event ,2)=hiFiev 


EVENT @ 


EVENT: SHOT PUTT WO 


21005 RANDOMISE 

21018 keyl=0: key2= 

21015 OPEN #7,scr_492x142a10x84; PAPER #7,4 
21028 power=3 

21038 score=0 

21040 DIM hi (5,4) 

21058 DIM hi$(5,3,3) 

210468 hi (1,1)=23, 82 

21078 hi(1,2)=22,15 

21088 hi(1,3)=21.45 

21085 FOR i=1 105 

21098 hi$(i,1)="AAA" 

2118Q hi$(i,2)="BEB" 

21118 hi#(i ,3)="CCC" 

21115 END FOR i 

21128 event=1: events=0 

21138 wr=O 

21140 hi(2,1)=9,.25 

21150 hi (2,2)=10.51 

21168 hi(2,3)=11.34 

21178 hi (3,1)=96.91 

21188 hi (3,2)=94.56 

21198 hi (3,3)=90.56 

21208 hi (4,1)=19.23 

21218 hi (4,2)=19.86 

21228 hi (4,3)=20.35 

21238 hi(5,1)=8.92 

21248 hi(5,2)=8.76 

21258 hi (5,3)=8, 24 

21248 round=1 

21278 DIM gl (3) 

21288 gl (1)=4200 

21285 ql (2)=3500 

21298 ql (3)=2500 

21902 END DEFine 

21999 : 

22000 DEFine PROCedure print_hi_scores 
22005 INK #4,6 F 

22018 IF we<i@ THEN AT #4,6,38:FRINT #4, wr 
22028 IF we29 THEN AT #4,6,37:PRINT #4,0r 
22038 INK #4,7 

22048 FOR i=1 TO 3 

22045 IF hitevent,i)<1@ THEN 

22858 AT #4,1+1,27:PRINT #4,"0"shi (event,i) 
22055 ELSE 

22057 AT #4,i+1,27:FRINT #4,hi (event,i) 
22058 END IF 

22068 AT #4,i+1,37:PRINT #4,hi$ (event ,i) 
22878 END FOR i 

22088 END DEFine 

22099 ; 

22108 DEFine FROCedure screen 

22105 CLS #7 

22118 CSIZE 3,iz INK 1,2: STRIF 4 

22115 AT 6,8:PRINT "END OF EVENT "j;event 
22135 FOR i=i TO 2008: END FOR i 

22158 BEEP 200,5 

22155 events=eventst! 

22168 END DEFine 

22199 + 

22999 + 

23000 DEFine PROCedure f_level 

230108 WINDOW 512,256,3,8 

23020 PAPER 4 

23838 STRIP 1: INK 6 

23040 CSIZE 2,1 

23058 BORDER 5,5 

23068 CLS 

23065 AT Q,7:PRINT "TRACK and FIEL D* 
20078 INK Q: CSIZE 2,@: STRIP 2 

23088 AT 3,1@:PRINT "FOR THE SINCLAIR GL” 
23098 INK 7:STRIF GAT 5,14:PRINT "by A. DIDCOCK" 
23108 INK 1:5TRIP 4 

25120 AT 12,2:PRINT "1/ Simple" 

23130 AT 14,2:PRINT "2/ Medium" 

23140 AT 16,2:PRINT "3/ Difficult” 

23145 INK @ 

23150 AT 10,Q:INPUT "WHICH LEVEL DO YOU WANT TO PL 


AY ON ? ";level 

23155 BEEP 5@0,5 

23168 IF level<1 OR level 3 THEN GU TO 23150 

23165 level i=level 

23170 OPEN #5,scr_512x18@aQx75 

23188 PAPER #5,4 

23198 BORDER #5,4,5 

23208 CLS #5 

23210 INK 1 

23220 AT 12,8:PRINT “(HAS TO BE 3 CHARACTERS) ":AT 

15,2:PRINT “eg. INITIALS: ADD" 

23238 INK @ 

23240 AT 10,7:INPUT “ENTER YOUR IDENTIFYING CODE: 

“yas ; 

23245 BEEP 52,5 

23258 IF LEN(a$)<?3 THEN GO TO 25240 

23268. END DEFine 

23999 3 

24000 DEFine PROCedure end_routine 

24005 BORDER: BORDER 5,1 

24010 PAPER 4:CLS 

24028 CSIZE 2,0: INK 1,2:STRIP 4 

24030 AT 1,7:PRINT "YOU HAVE FAILED TO QUALIFY "\\ 
y FOR THE NEXT EVENT" 

24840 INK 2 

24050 AT 7,1:PRINT "YOU SCORED ";scores;" POINTS" 

24068 AT 9,46:PRINT "AND ACCUMULATED ";wr;" WORLD R 
ECORDS" 

24070 AT 11,2:PRINT "ON LEVEL ";leveli 

24088 INK 

24098 AT 13,1:PRINT "YOU ALSO COMPLETED ";events;" 
EVENTS" 

24095 IF scoreshiscore THEN hiscore=score 

24096 AT 15,9: INK 2,@:PRINT "THE HI-SCORE IS "shis 
core 

24108 INK 1 

24105 FOR i=1 10 2@@0:END FOR i 

24118 AT 19,6:PRINT "PRESS ANY KEY TO PLAY AGAIN" 
24128 PAUSE 40000 

24138 BEEP 300,10 

24148 END DEFine 

24999 

29008 DEFine PROCedure next_level 

25085 reset 

25018 CLS #7:CSIZE 3,1: INK 1,2:5TRIP 4 

25028 AT 5,1@:PRINT "WELL DONE“ 

25025 INK 2:CSIZE 2,0 

25038 AT 14,4:PRINT "YOU HAVE COMPLETED ALL THE EV 
ENTS"\\" IN ROUND "sround 

25048 round=round+! 

25058 IF (score/(round-i))<ql (levell) THEN quality 

=Q: ELSE qualify=1 

25060 INK @ 

25070 IF qualify THEN FLASH 1:AT 18,2:PRINT "YOU H 

AVE QUALIFIED FOR THE NEXT ROUND": FLASH @ 

25080 FOR i=1 TO 3Q00:END FOR i 

25085 CLS #7 

25098 END DEFine 

Ye hich) 

30000 DATA 5,1,6,4,5,2 

$1997 3 

32005 start=RESPR (100) 

32818 aQ=65537 

32020 a2=start+6 

32030 RESTORE 32180 

32048 FOR i=@ TO 7@: READ byte: POKE start+i ,oyte 

32050 CALL start ,0,0,255,37,0,0,0,a0,0,a2 

32068 GO TO 7 

32899 : 

32100 DATA 32,4,78,67,78,117 

32118 DATA 128,7 

32120 DATA 96,112,24,92,124,12,20,36,76 

32138 DATA 100,104,112, 112,96, 96,80,72, 108 

32140 DATA 24,24,48,52,60,48,96, 48,76 

32158 DATA 24,24,48,48,48,48,16,16,48 

32168 DATA 88,88,112,52,60,48,56,40,76 

32178 DATA 88,88,112,48,48,48,16,16,48 

32188 DATA 8,48,48,76,120,96,124,0,0 
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PECTRUM CONNECTIONS 


QL - via Network 


QL — via RS232 


100 REMark Pictrans 
110 MODE 9 
20 WINDOW 512,254,0,0 
13) PAPER 6 
140 CLS 
150 INPUT 
ce)" tnam$ 
50 OPEN #3, ser] 
170 REPeat syne 
180 getlin d$ 
190 IF dt="*eee" THEN EXIT 5 
200 END REFeat svnc 
210. wal=6 
22) FOR y=0 TO 194 
230 bht=t+ily MOD 3)=9) 
240 xval=o 
250 REPeat showlin 
260 IF xval >=512 THEN EXIT showlin 


"File name fi ie 
ame for picture"\ "(Including Dev 


ync 


270 getlin c$ 
290 IF cf="seex" THEN V=10002EXIT sh 


290 block Widthel+(1de(cd py me 
00 block colour=c$ mop g 
BLOCK block width,bht val, vval Block coloy 
val=xval+block width ‘= ee 
@ END REPeat shawlin 
M40 wal=yval+}+i(y MOD 3)=0) 
350 END IF . 
360 NEXT y 
370 SBYTES fnam$,131072,32749 
380 STOP 
390 DEFine PROCequre aetlin( 
400 INPUT 43, ling 
410 RETurn 
420 END DEFine getlin 


¥ B)) 


lin#) 
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Rob Miles shows you how to 


transfer your favourite screens 


across from Spectrum to QL. 


The QL has over four times the 
screen memory of the Spectrum, 
allowing it to display detailed pic- 
tures in eight colours. Unfortunate- 
ly at the moment all the best 
artwork is being produced for the 
Spectrum. The following programs 
allow you to transfer screens from 
the Spectrum to the QL. The QL 
screen is then stored and you can use 
one of the QL artist programs 
(reviewed in this issue) to add to 
the detail in the picture, producing 
spectacular versions of favourite 
screens! 

Two versions of the programs are 
given here, one using the Network 
communications and the other using 
the RS232. The network one is the 
easiest to connect, you can use the 
lead supplied with the QL, but it can 
be unreliable. The RS232 version is 
much more reliable, but you will 
need to assemble a lead as outlined 
last month. 

To start a transfer first run the 
program in the QL, this will ask you 
for the name of the microdrive file 
into which to load the picture. Give 
the name of a file and press RE- 
TURN. Then run the program in the 
Spectrum. The Spectrum program 
loads the screen you wish to transfer 
from cassette and then begins to 
ship it to the QL. The border colour 
on the Spectrum will flicker as the 
link operates and the picture will 
build up on the QL screen. 

When the screen has been trans- 
ferred to the QL it is automatically 
saved on the device you specify, so 
before you run the program make 
sure that there are at least 65 
sectors available, nothing is more 
heartbreaking than to watch an 
entire screen go across, only to have 
it fail to save at the end! 

Because the QL and the Spectrum 
have different numbers of pixels 
down the display the screen is 
‘stretched’ as it is transferred. This 
can make the pages of text (if you 
ever transfer such things!) look 
rather strange. You can turn off this 
stretching if you wish by changing 
the following lines in the QL pro- 
grams: 


QL Network Program Changes 
240 bht=1 
350 yval=yval-+1 


QL RS232 Program Changes 
230 bht=1 
340 yval=yval+1 
440 END DEFine getlin 


Spectrum. - via Network 


10 CLEAR # 
20 FORMAT "n*sj 
DIM o(32): DIM i (32) 

0 PRINT #i;"Start the tape . : 
50 LOAD ""SCREENS 
60) OPEN #4; 2 
70 PRINT #4; "seee"s CHRS 10; 
8G CLOSE #4 


0 TO 34 

110 LET attribute=ATTR ik.c) 
120 LET picti}= 
4))/9) 

130 LET 1ictlisattei bute-BeINT lattribute/g) 
140 NEX j 
130 LET fois 

160 FOR r=1 TO 

170 FOR c= 

180 LET pi PEEK (fprxel¢c) 

190 IF pixel=O THEN OPEN #4;" 

*LIGCHRS 103: CLOSE #4: Go To o 
200 IF pixel=255 THEN OPEN #4; 

(ctf? sCHRS 11 


INT ‘lattribute-o4#INT iattributesé 


240 TF pixel ssdiv THEN PRINT H4SD (CHL ECHRS 10s: 
LET otxel=pixel-divs G0 To 0260 en 
250 PRINT H4plctl) sCHRE 10; 

) CLOSE #4 

ET divediv/2 

280 NEXT b 
290 NEXT c 
300 LET fpixel=forye] +254 
S10 NEXT ¢ 

NEXT | 

PRINT #4; "eeR#"SCHRE [Oe 


Spectrum — via RS232 


New - aprofessional specification C Compiler 


i \ ICE ey 
he OL! Designed by [i] LATT 
GLC acong eT ac 
iaghan and Ritchie definition OF ©. 
ware: by Sinclair Research; itis is most 
| powerful and fully featured C compiler 


QL PASCAL £89.95 nom 


Pascal compiler which conforms fully to the ISO 7185 
international standard. Approved by Sinclair Research. 
Features: fast single pass compilation — no inter- 


mediate stages; produces native 68000 code; full 
available for the QL. ISO 7185 level 0; direct addressing of complete 
: itchie QL address space; easy to use QDOS interfaces; 
> Complete AU et and Rit very large sets and arrays. 
implementation. 


ASSEMBLER £39.95 0. vax 


A high specification macro assembler supporting 
the full Motorola instruction set. 

Features: external references; absolute, position 
independent, and relocatable code; linker; precise 
error messages; formatted listings; macro expansions; 
conditional assembly; and a large range of directives. 


BCPL £59.95 over 


A true compiler, ideal for systems programming - 
writing utilities, games and applications. 
Features: generates native 68000 code; run 
time library includes easy QDOS interfaces; link 
loader links separately compiled segments; 
modules can be linked with Pascal or Assembler. 


LISP £59.95 ne. var 


A LISP interpreter for exploring “The language * 
of artificial intelligence”. 


Features: Turtle graphics; compatible with LISP 
for the BBC micro; full support of QL features; 


structure editor; prettyprinter; garbage collector 
| and tracer. 

Every DEVELOPMENT KIT includes Metacomco's 
| popular screen editor, and a detailed manual. All 


ails! 
| KITs will operate either on a standard QL or else Ring or write for det 
/ using QL peripherals such as floppy disks or 
| 


memory expansion. 

Available from W.H. Smith, John Lewis, HMV, | ‘ : 

Menzies, Dixons and other leading retailers or Phone today or post this coupon to: Metacomco, 26 Portland Square, Bristol BS2 8RZ. 
"direct from Metacameo. | Please send me QL C £99.95 LIQL PASCAL £89.95 C1] ASSEMBLER £39.95 CIBCPL £59.95 0) | 


desi tible 
| LATTICE® design, compa 
= vith LATTICE® compilers on IBMPC, etc. 
> True compiler producing native 68000 
code. 
i tic. 
> Full floating point arithme 
> Powerful data types such as pointers, 
arrays, structures, and unions. _ 
7 Comprehensive library of UNIX, Q 
and utility functions. 
> Over 90 detailed error messages. 
> Separate compilation. == 
Fi sabes conditional compilation, and 
other pre-processors. shes 
i les; will also 
inker to link program modules; 
- ee other relocatable binary modules. 
> Chosen by Sinclair Research as the C 
Compiler for the GE. 


eh 


LISP £59.95 C1. MORE INFORMATION [11 enclose a cheque for £ _______ or debit my 
U Access/VISANo:L_T I [1 TTT J | | TT 1) Card expiry Date__ 
| NAME | 


26 Portland Square, Bristol BS2 8RZ. 
Tel: Bristol (0272) 428781 | 


ADDRESS 


SIGNATURE 
Trademarks: UNIX-AT+T Bell Laboratories; QL, QDOS - Sinclatr Research Limited POSTCODE TELNO: 
l Price includes VAT, postage and packing UK mainland only. Delivery, allow up to 28 days. QL 11 | 
= a meee ——= = = [ss 
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OFTWARE FILE 


Master Blaster 


Its name sounds more like a 
pop group than a computer 
game, but Master Blaster is 
certainly going to be popular 
amongst the QL fraternity. 
With a name like that, I bet 
you think its an alien ‘shoot 
em up’. Well, you’re very 
nearly right, only the 
enormous variety of aliens 
don’t look very alien at all. 
You know, not mean enough! 
But be warned. Remember the 
wolf in sheep’s clothing. The 
screenfuls (20 in all) of nasties 
go careening about the screen 
in ail manner of wild courses 
being thoroughly obnoxious to 
us poor, humble players. 
What have they got against 
us anyway? Just because 
we're chucking a bullet or two 
at them. You won’t be 
chucking very many in this 
game, because youre only 
allowed one bullet on the 
screen at any one time. 
Normally, ’'d mark a game 
down for this. After all, its the 
quickness of the finger on the 
fire that’s part of the skill. 
However, in this particular 
case, the one shot technique 
merely adds to the frustration 
and the addiction. You just 
have to sit there watching 
your bullet work its trouble- 
free way to the top of the 
screen, whilst you’re set upon 
by hordes of the bad guys. 
These aren’t, however, your 
usual bunch of baddies, as 
they move in unpredictably 
disturbing ways in order to 
destroy another brave pilot. 
One of the keywords of this 
game is variety. The first 
screen seems fairly ordinary, 
but you will eventually make 
your way past it, though not 
necessarily with many ships 
left. The second screen has a 
number of planes doing 
saturation bombing — I never 
knew planes could carry so 
many bombs. Later screens 
have dropping eggs, which 
quite naturally break, then 
hatch into birds which have 
an annoying habit of flying 
right off the top of the screen, 
then back on at the bottom, 
catching you unawares from 
behind — very nasty. Even 
more painful are the bouncing 
balls! Another memorable 


Marcus Jeffery gives the 
low-down on the QL software scene. 


scoes ool) Lzrees 72 


An all-action screen from Master Blaster 


Request for information from Equate 


<TREE> , <CONIFER> ,<CLIMBER> ,or <GROUHD COVER) plant 
plant is required. Eige 
i RCREENMD or <DECIDUOUS) pient is ne bt La 
The position is in (COMPLETE SHADED, <PARTIAL SI >, or 
FULL SUM. 
The soil is mainly <ACIDD, (HEUTRALD or<ALKALID. Gtig 
Tee soil tends to be <VERY DRY>, <DRY>, <M0IST> or 
(VERY MOIST>. 
» The type is mainly <PEAT>, (CLAY), <LOAM, <SANDD, 


ts vill need to be <HARDY> or <FROST RESISTANT) for the 


The aptly-named Shrub Data Bank & Planner 


the clouds on yet another 
screen which dampened — 
well, flooded — the ground. 
The smooth graphics and an 
imaginative variety of screen 


screen was a gardener’s 
paradise, with seeds dropping 
from heaven which blossom 
into deadly flowers. These 
were probably precipitated by 


plays are bound to make this 
game a winner. Having said 
this, in all honesty the game, 
though of high quality, is still 
not as good as the best of 
what’s available on the 
smaller cheaper micros. Let’s 
hope that the new low price of 
the QL will encourage people 
to start making better use of 
its facilities on the games 
front. In the meantime, you 
could do a lot worse than to go 
out and buy this one. 
CompuGem 


Somebody once asked me what 
the definition of a graph curve 
is, only to inform me that it is 
someone with a mathematical 
bent! 

A bit lame maybe! But if it 
applies to you, then you may 
be interested in Equate from 
Flite. This is a package for 
handling graphical equations 
and displaying them on- 
screen. Options allow you to 
input equations and display 
both the graph and its 
differential. Simpson’s Rule 
will calculate integrals and 
the Newton Raphson method 
will calculate roots. You can 
also solve simultaneous 
equations, or even define 
points of a graph and get the 
system to find a best line of fit 
(straight, cubic or whatever). 

To be honest, the 
applications seem fairly 
limited. If you know enough 
mathematics to use the 
package properly, then you 
can probably work out the 
answers fairly easily using a 
pocket calculator. Whereas 
users who have a genuine 
application in mind will be 
better off with more 
specialised software. The 
question is, do you want pretty 
pictures or quick results? 
Flite 


Shrub Data Bank 


and Planner 


Are you a member of the 
Green Thumb Brigade? The 
blurb reckons that the Shrub 
Data Bank and Planner will 
be of interest to all QL owners 
having gardens and to small 
businesses such as 
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Nurserymen, Farmers and 
Florists. Well, ’m a QL owner 
with a garden, so here goes. 

The package uses Psion’s 
third party Archive Run Time 
Module to create a gardening 
database. This contains 
information on 287 common 
shrubs, trees and climbers, 
such as typical size, 
characteristics, preferred 
habitat and soil, flowering 
seasons, and so on. All useful 
stuff. The package also 
includes the facility for you to 
add your own items using 
Archive, expanding the 
database. 

Having tried out all the 
features of the rather basic 
finished product, I came to the 
conclusion that I couldn’t 
think of anybody who would 
want the product. I’m sure 
that experienced gardeners 
would know what sort of plant 
would suit any particular 
situation, without having to 
wait ages for the QL to find it 
for them. Whereas novice 
gardeners would be much 
better advised to drop in at 
their local garden centre, get 
somebody’s advice, and be able 
to see the plant they’re 
thinking of buying. 

Then again, if this is really 
what you want, then here it is. 
What’s more, another four 
additional plant data banks 
are supposed to be on their 
way. 

Superplant Software 


With four 100% machine code 
games on one tape for £11.95, 
you're probably thinking that 
the games aren’t up to much. 
You're right: Nevertheless, 
let’s look at each of the games. 

Food Freak refused to load, 
but the documentation states 
that you must move Food 
Freak around a screen as 
quickly as possible eating the 
food. Fast food scores more 
points. The game ends when 
you hit your third poisonous 
toadstool, or after sixty 
seconds. 

Fire Tower consists of a 
towering inferno look-alike 
where all the occupants are 
throwing fate to the wind as 
they hurl themselves from the 
windows. Your job is to dash 
left and right along the bottom 
of the screen, doing your best 
to catch them in a blanket, 
held taut by a couple of 
muscular firemen. Due to the 
multitude of “jumpers”, 
saving them all is impossible. 
However, too much 
enthusiasm tends to find them 
landing on the poor firemen, 
resulting in their deaths. The 
game ends when all the 


windows are aflame. 

Advance Attack is a typical 
alien shoot ’em up. The aliens 
(there seem to be about three 
or four different types) move 
fairly randomly about the 
screen, throwing out the odd 
death ray and steadily 
descending. You move along 
the bottom of the screen in 
your now familiar spaceship 
zapping away for all it’s 
worth. You have three lives 
which are lost by any alien 
reaching the ground, or when 
hit by a death ray. 
Alternatively like the first, 
the game ends after sixty 
seconds. 

Life on the ocean wave may 
be okay for some, but I doubt 
that even the most dedicated 
mariner would care to risk life 
and limb in the shark-infested 
waters of Pirate Island. 
Certainly not for three 
unspecified “prizes”. The idea 
is to move Peter the Pirate toa 
wreck and a small island at 
the top of the screen, avoiding 
the rapidly moving shark fins. 
This is more difficult than it 
sounds. Especially when the 
sharks are talented enough to 
eat you even when only knee- 
deep in the water! 

Upon reaching the wreck, 
searching the stern will lead 
to the squid screen, where you 
have to avoid the deadly 
tentacles to collect your prize. 
The bows lead to a very 
simplistic levels and ladders 
screen, where you have to 
avoid killer apes. 
Alternatively, you could head 
for the island beach and make 
for the prize in the cave 
entrance. However, I didn’t 
last more then a couple of 
seconds under the rain of 
rocks from the belligerent 
natives. Having failed 
miserably on the beginners, I 
suppose it was stretching my 
luck to try the advanced 
version of Pirate Island 
(supplied on the cartridge). 
However, this version didn’t 
seem to be any more difficult, 
and I fared just as well. A 
reasonably original game 
idea, but I'd rather be splicing 
the mainbrace any day. 

Due to the lack of games 
software available for the QL, 
this four-in-one package is 
possibly worth the price. Be 
warned, however, that on any 
other micro, it is dubious that 
any of the games would ever 
be published. 

Victory Software 


Touch ’n’ Go is an adaptation 
of the Harcourt System 
Typing Tutor. Teach, or rather 
re-teach if you’re new to the 


QL keyboard, yourself typing. 

This course takes you from 
simple beginnings, such as 
using the correct finger for 
each key, and so on, through a 
series of over sixty exercise 
sections. According to the 
documentation, the course 
will take you to a typing speed 
of 30 words per minute with 
95% accuracy. However, the 
final tests on our copy were 45 
words per minute. 

Not all the tests fit into 
memory simultaneously, so 
reloading from microdrive is 
fairly frequent. So that you 
don’t waste time waiting for 
the sections to load, they are 
accessed in advance, whilst 
the tests continue. 
Unfortunately, this increases 
the time it takes to process a 
key press, which, in any case, 
is not particularly fast to 
begin with. The only other 
major complaint is with the 
definition of “accuracy”. If 
you've finished a sentence, 
and mistyped, say, just one 
character then you will be 
allowed to continue. However, 
inserting or omitting a 
character (again just one 
mistake) will unintelligently 
highlight a large part of the 
line as being wrong. Not that 
we made many mustakes! 
Harcourt 


Historically speaking, Reversi 
was first invented and 
patented in Britain. Then 
recently those inscrutable 
Japanese filched the idea, 
stipulated that the first four 
stones must be placed 
diagonally on the centre 
squares to create a “different” 
game, called it Othello, then 
with a little marketing they. 
made lots of money. Pretty 
clever, huh? 

Which is more than can be 
said for this rather poor 
SuperBasic version of the 
game — called QL Reversi 
(Note. This is not to be 
confused with the confusingly- 
named QL Reversi being 
marketed by Sinclair and 
credited to Games of Skill — 
Ed), it plays the more common 
Othello. The program allows 
eight levels of play, though 
the only difference these seem 
to make is the total time 
you're allowed for all your 
moves. Consequently, I found 
Level Hight quite difficult — 
well, you try playing 34 stones 
in just one minute! Trying out 
Level Seven, this self- 
confessed poor player was 
beating the electronic 
daylights out of the computer 
when it decided to crash with 
an “At line 10050 — not 


complete”, just as I was about 
to collect the first of my four 
corners. This I suppose is 
computing’s equivalent to 
kicking over the board and 
knocking all the pieces to the 
ground in a fit of pique. 
What can I say? If you 
happen to find yourself 
walking into a shop to buy 
this, just reversi about and 
walk back out again! 
Soft School 


Babel Soft 


QL-Grafik is a sprite editor 
and driver. Not only did we 
manage to work this out, but 
we also managed to define a 
multicoloured Sprite of the 
Liberator (of Blake 7 fame). 
Having done this we were 
stuck. The problem being that 
the comprehensive-looking 
instructions were entirely in 
German, which nobody in the 
office speaks. Well, why 
should we, when the QLisa 
British machine?! The good ~ 
news is that the programmers 
had seen fit to include plenty 
of help screens in the package. 
The bad news is that these 
were also in German! 
Hopefully, if and when this 
package is marketed in 
Britain (at present it’s 
published by Verlag and 
Keisenberg), it'll have English 
translations to all the 
documentation. Nevertheless, 
the projected £25 seems rather 
high, even if it turns out to be 
an excellent sprite designer/ 
driver. 
Verlag & Keisenberg Software 


SUPPLIERS 
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SUPERCHARGE 
SUPERBASIC COMPILER 


* This amazing compiler translates QL SuperBasic into 68008 machine code, completely automically! It supports the entire syntax of 
SuperBasic (except, obviously, commands like EDIT/LIST/RENUM which are specific to Basic and would be meaningless in 
machine code). That means all file handling, multidimensional arrays, procedures (with parameters too), local variables, strings, 
sound, graphics, separate superspeed integer, floating point arithmetic (displaying Nine Digits of Precision versus The Interpreter’s 
Seven!), extensions to Basic, the complete range of SuperBasic control constructs . . . refer to your QL User Guide for the whole list! 

* The code génerated by Supercharge runs incredibly fast — here are the standard PCW benchmarks (PCW June 1984) for QL Basic 
compared with the timings for the same programs when oe ee 


BENCHMARK NUMBER 1 3 4 5 6 7 8 

SUPERBASIC (SECS) al a 10.7 10.3 13.2 26.1 61.8 25.8 
SUPERCHARGE (Floating Point) (SECS) 0.2 0.3 1.2 0.9 1.0 2.5 41 8.6 
SUPERCHARGE (Integer) (SECS) 0.06 0.1 0.3 0.3 0.3 0.7 1.0 N/A 


(Variations will exist between different QL systems) 
Hence on standard benchmarks a 60x speed increase is possible ... SUPERCHARGE, however, is at its least impressive when 
compiling such short programs, as SuperBasic grows slower as program size increases. Speed improvements of SEVERAL 
HUNDRED TIMES are in no way uncommon when using SUPERCHARGE on programs of average size. 

* SUPERCHARGED programs are independent jobs (so you don’t need to have SUPERCHARGE loaded to run them). 

* SUPERCHARGED programs are relocatable and are inherently multitasking (so you can run any number of them at once). 

* SUPERCHARGE optimises as it compiles — and the advanced user may switch the optimisation from time to space on a line by line 
basis. 

* SUPERCHARGED programs load far more quickly (at least 5-10 times) and, hence reliably, than normal SuperBasic — 
there is no pause between blocks 

* SUPERCHARGE can compile programs of ANY size, provided you have enough RAM on board (for the unexpanded QL, the limiting 
source code size is still a massive 40K!). Compilation listings can be directed to any device — and a complete set of compile/run time 
error messages (clear and unambiguous, unlike the Interpreter’s!) are issued, showing exact error positions. 

* Add-on commands, functions and procedures are allowed by SUPERCHARGE, provided they do not read/alter Interpreter data 
structures . . . Hence utilities supplied with disk systems and QL Toolkits will work with SUPERCHARGE! 

* SUPERCHARGE is compatible with all disk and memory-expansion systems. The system we recommend (on grounds of quality, 
speed and reliability) is the one we used in developing SUPERCHARGE - the CST disk system, available from Computamate 
(Scotia Road, Burslem, Stoke-on-Trent — Tel: 0782 811711) or from us — write in for details. 

%* SUPERCHARGED programs are protected against unauthorised modification/listing/tampering — permanently. 

* SUPERCHARGE is the only QL Compiler which offers the user the convenience of interactive testing, editing and debugging. 

* SUPERCHARGE cures most bugs and lifts many of the restrictions imposed by the Interpreter! Examples of problems completely 
cured under SUPERCHARGE: ‘“‘Too many parameters in a procedure” bug; the RESPR bug, GOSUB in a single-line FOR 
statement, CALL in long programs, procedure parameters/integer/string variables used in SELECT statements, full integer 
arithmetic, etc, etc. 

* SUPERCHARGE adds a number of new commands to SuperBasic, including ones to monitor device statuses, to list/stop/remove 
tasks, to change task priorities, and so on. 

* SUPERCHARGE is supplied either on disk or microcartridge and can be easily transferred/backed up from one to the other. 

* SUPERCHARGE is supplied with a superb Instruction Manual (40,000 words) designed to complement the User Guide — it is 
designed for both beginner and advanced user, with sections on ‘‘Getting The Best From SUPERCHARGE” and many examnles. 

* SUPERCHARGE itself loads and runs phenomenally fast — yes, SUPERCHARGE is itself a SUPERCHARGED program! 


£59.95 COMPLETE WITH DETAILED MANUAL (specify cartridge or CST diskette) 


Author: Simon Goodwin. Assistant: Gerry Jackson. Mission Control: Freddy Vachha. 

NOTE: Software houses requiring to use SUPERCHARGE will need a site licence, for which the VAT-inclusive cost 
is £250 (in addition to the price of one compiler). Instructions are supplied to site licence holders on the making of 
appropriate numbers of copies of SUPERCHARGE for their exclusive use. Site licence holders are exempted from 
paying Digital Precision royalties on SUPERCHARGED programs. 

Why use C or Pascal when a highly structured, full-featured Basic of superior speed (once SUPERCHARGED) and flexibility 
is already on your QL? SUPERCHARGE is the final solution. SUPERCHARGE all your Basic programs (past, present and 
future) — including any you have bought — and realise your potential as well as that of your superb computer. 

Digital Precision Software is available wholesale from TBD, Lightning, Websters and Microdeal, or retail from selected branches of 
W. H. Smiths, Boots, Menzies, Computers of Wigmore Street and other fine retailers. The quickest way to orderis directly from Us—why not 
use the coupon below? Our delivery is by first class return of post. Dealer enquiries are most welcome (our discounts are generous). 


To: DIGITAL PRECISION LTD, 91 MANOR ROAD LONDON E17 5RY 


Please rush me a copy of SUPERCHARGE, The State of the Art 
SuperBasic Compiler, immediately. | enclose a cheque/postal order/cash y |i 

for £59.95 (for orders from Europe add £2.50. Airmail orders from other 

countries add £4). For all orders from abroad use Eurocheques or 

cheques drawn on UK banks only. Within the UK our deliveries are post 40i6i TAL PREEISION 
f 


ree. 
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(demo on cartridge) with full job control both for SUPERFORTH and 68000 co-resident 
programs * Fully comprehensive 80-page user manual supplied, replete with examples — 
suits FORTH experts and people who know no FORTH at all (we do NOT require you to buy a 
separate FORTH guide) * Can be run concurrently with Basic or any other task * Uses files 
in standard FORTH block format * Interactive debugging and error handling. 


REVERS! — VERSION 1.3 


Probably the strongest computer version ever produced for any computer in the world. 
Guaranteed to defeat the Sinclair Reversi Program 

This superb program (written entirely in SUPERFORTH — the well-written FORTH-83 Source 
Code is supplied for you to study). Nine levels of play, lots of features — Exchange Sides, 
Retract Moves, Setup Position, Display Evaluations (Numeric), Resign, etc, etc. . . Weare 
yet to find any program (for the QL, C64, Spectrum, BBC, IBM PC or upwards) capable of 
beating ours on equal time — or any human capable of beating it at its highest skill level! 
Dare you accept our challenge? This is the most devastating Reversi ever (Beat the 
Spectrum Champion, MOI Othello, 10-0 in a supervised match). 


NEW. . . COMPLETELY REWRITTEN! 
QL SUPER SPRITE GENERATOR VERSION 3.0 


“Simply excellent’’ (QL User, June 1985) is what they wrote about Version 1.0! 
Including: Superspeed Sprite Compiler, Sprite Management Procedures the Machine-vode 
Sprite Creation Editor, a library of SuperBasic extensions, lots of Demonstration Sprites — 
29 files supplied! This superb system allows you to create all the high speed, high tension, 
high drama special effects in the top arcade and adventure games . . . You can use QLSSG 
V3.0 with absolutely no machine code knowledge at all — it does all the hard work 
automatically for you! This is what Version 2.0 offered: * Easy drawing/amending of 
Sprites * Up to 16 different Sprites on screen simultaneously * Each Sprite can have up to 
16 different shape ‘‘frames’’ for animation * Up to 256 different planes to control depth of 
movement * Automatic real-time collision detection; both Sprite-Sprite (with identity) and 
Sprite — Object * Sprite reversal * Sprite inversion * Comprehensive diagnosis run-time 
error trapping and processing systems * Ultra high speed action — at top speed the motion 
is faster than the eye can see! * 100% Variable Speed * Easy control from within your 
program, using SuperBasic keywords * Library of preprogrammed Sprites * Easy to use 
* Full instructions included * All processes fully described plus flowcharted for clarity 
* Ultra large Sprites possible * Full over/under/hit/miss logic * Freeze Control * 
Automatic Screen border detection * Backup copy * Full set-up/Connect/Extend/Test/ 
Reply facilities * Solid plus ‘‘Ghostly’’ Sprites and much, much more * All you need to 
know about accessing the system both from SuperBasic and 68000 machine code is 
supplied. Now Version 3.0 has ALL the features of Version 2.0 as well as: * Amazing, 
incredibly, truly 100% flicker-free operation * Choice of two screens * Up to 256 Sprites 
in total * Choice of automatic Sprite drawing in the background * Choice of automatic 
Sprite movement »* Ability for each Sprite to move at its own independent speed * All 
work done by new keywords. Can be used in your own programs without royalty 
restrictions — produces self-contained 68000 machine code to easily co-reside with 
SuperBasic (or machine code) from which it is invoked. 

VERSION 3.0 


£24.95 —— compLete WITH EXTENSIVE INSTRUCTIONS 
Or £19.95 if ordered together with SUPERCHARGE, the SuperBasic Compiler 


QL SUPER ASTROLOGER 

THE DEFINITIVE CHARACTER AND PERSONALITY DELINEATION 
PROGRAM — IDEAL FOR BOTH BELIEVERS AND SCEPTICS... 
This superb machine code program was produced by a professional astronomer working in 
consultation with an astrologer. Only fools dismiss the ancient art of astrology as rubbish — 
try it and see how astrology works. It is uncanny. We do not profess to know why it works — 
just that it DOES work . . . QL Super Astrologer can cater for any birth time, in any location 
on earth. It is incredibly fast and produces a detailed readout with full instructions on where 
to go next if you want to learn still more. There are many extra features — an eclipse 
calculator, distance from earth calculator, display of solar system with exact planetary 
positions (fully variable magnification) at any point in time (present, past or future), printer 
driver, full astrological symbols, full printout facilities for the natal chart, etc, etc. 


ASUPERB BUY AT JUST £21.95 INCLUDING DETAILED MANUAL 


SUPERFORTH wnetupinc REVERSI 


A COMPLETE FORTH-83 STANDARD FORTH COMPILER WITH MANY EXTRA COMMANDS - 100% 
INTEGRATED WITH QDOS (supports windows, device independence, graphics, sound, peripherals, etc) 
* Ultra-fast operation (much faster than any other QL Forth) — for example, a Sieve of Erastothenes 
program taking 3min 30sec in SuperBasic takes 4sec in SUPERFORTH! * 32-bit operations supported 
* Full floating point maths operations (log, trig, exp included) * Full screen Editor * Multitasking 


INSTANTANEOUS RESPONSE AT LEVELS 1 AND 2 


SUPERFORTH + REVERSI 
£29.95 with EXTENSIVE MANUAL 
or £24.95 if ordered together with SUPERCHARGE 


SUPER ARCADIA 


A TERRIFIC DOUBLE BILL! TWO OF THE NERVE-TINGLIEST, ALIEN ZAPPIEST 

BESTEST ARCADE GAMES (IN HYPERSPEED MACHINE CODE, OF COURSE) FOR 
THE PRICE OF ONE! 

We will say no more — except that we are addicted now! 

At last, QL arcade games which show Z80/6502 fans 

what 68000 is all about! 


Just £15.95 
THIS IS AN OFFER NOT TO BE MISSED! 


OL SUPER BACKGAMIMON now serrer vatue THAN EVER! 


An excellent program tor beginners ana experts at the game. Variable playing strength, full 
on-screen instructions, obeys all the rules of backgammon. A real ego-crusher at top level! 
Randomising features ensure a different game each time — trillions of possibilities! Fast 
response speed — plays an aggressive, challenging and entertaining game. Dual clocks; 
three Playing Modes; Auto-play (Computer vs Computer); Normal (Human vs Computer); 
Supervisor (Human vs Human). Rules of Backgammon both in print and on-screen, in Quill 
document. Six playing levels. Computerised dice thrower coupled with override option to 
allow you to throw real dice. Very easy to operate. Help facility; the computer suggests a 
move for you. Improved display/works on colour/bw TVs/Monitors. You can choose to have 
displayed, while the computer is thinking, both current move considered and best move so 
far, with evaluation scores for both. The most enjoyable version of Backgammon around. 


£12.95, version 2.0 COMPLETE WITH RULES AND HISTORY OF BACKGAMMON 
“The computer will almost certainly beat you’’ (QL User, June 1985) 


QL SUPER MONITOR DISASSEMBLER 
VERSION 3.0 


IMPROVED AND COMPLETELY RE-WRITTEN! 
A top flight, feature-packed 68000 Machine Code Monitor, integrated with a tull Motorola 
Standard Disassembler — all in 100% machine code. The entire system occupies an 
incredibly samll 8.5K — unbelievable compactness! This program will allow you to test, 
debug, check and correct any machine code program — and to understand the operation of 
anyone else’s! This state-of-the-art product is written entirely in relocatable machine code 
and, occupying very little space, can reside in the QL at the same time as your other 
programs (BASIC and machine code). Features include: Edit/Jump/Execute/Output to any 
device/Input from any channel/Catalogue/Dump/Load/Save/Display + Set Registers/Debug/ 
Disassemble)Hex + Modulo arithmetic/List + Set + Cancel Breakpoints/Single Step/ Page 
In + Out of SuperBasic/Backup Copy/ Any Base to Any Base Number Conversion/Quilled 
Instructions/User defined screen layout, size and colour/Trace RAM + ROM/Alter + Display 
Memory/Multitasking/Echo output to non-default channels. : 


£18.95 COMPLETE WITH INSTRUCTIONS VERSION 3.0 


Or £16.95 if ordered with SUPERCHARGE, THE SUPERBASK COMPILER 


SPECIAL OFFER! 


Send us the original cartridge of any older version Sprite Generator, Monitor/Disassembler 
or Backgammon program, plus £5, and we will post you the latest version (no strings 


attached!). 
| CHRISTMAS SPECIAL! 


In addition to any existing offer, £1 off if you buy two programs, £2 off if you buy three 
programs, £3 off if you buy four programs, and so on! This special offer ends with 1985. 


PROGRAMMERS - We pay excellent royalties for good 68000 software for the QL, Atari 
520ST and Amiga computers. 


All Digital Precision software is compatible with Computamate, Medic, Quest and other good disk drives and memory expansion systems: transfer of the programs to diskette is simplicity itself. 
Digital Precision software is available wholesale from TBD, Lightning, Websters, Microdeal or retail from selected branches of W. H. Smiths, Boots, Menzies, Computers of Wigmore Street and 
other fine retailers. The quickest way to order is directly from us — why not use the coupon below? Our delivery is by first class return of post. Dealer enquiries are most welcome (our discounts 


are generous). 


To: DIGITAL PRECISION LTD, 91 MANOR ROAD, LONDON E17 5RY 


Please rush me a copy of SUPERFORTH/SUPER ARCADIA/SUPER ASTROLOGER/SUPER SPRITE 
GENERATOR 3.0/SUPER BACKGAMMON 2.0/SUPER MONITOR DISASSEMBLER 3.0. | enclose a 
cheque/postal order/cash for £ ............eeeeeeeevecesseeeees (For orders from Europe add £1 per program. 


Eurocheques or cheques drawn on UK banks only). Within the UK our deliveries are post free. 


y | 


For airmail orders from all other countries add £1.50 per program. For all orders from abroad use GI TAL POCLISION 
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* SINGLE BOARD PLUGS INTO QL EXPANSION SOCKET 
%* NO EXTERNAL POWER SUPPLY NECESSARY 

* EPROMS SELECTED AUTOMATICALLY BY SOFTWARE 
* 4K/8K EPROM SOCKET FOR USER EXPANSION 


QL EPROM PROGRAMMER 


tok kkk * £87.50+£2,50 ptp kkk kkk 
Cheques made payable to: 


ANGLO SERVICES LTD, 4/6 LONDON ROAD, PORTSMOUTH PO2 OLH 
ALLOW UP TO 28 DAYS DELIVERY 


% USER FRIENDLY SOFTWARE SUPPLIED ON MICRODRIVE 

* FULL DOCUMENTATION SUPPLIED 

* EPROMS PROGRAMMED 2716/2732/2732A/ 2764/ 27128/ 
27256/2516/27016/27032/27064/ 270128/27C256 


se SLIDE-SQUARE 
Agame of logic. Four levels of play plus design feature 
PLUS four other games 
PLUS spooler — a fast multitasking printer utility 
All for just £8.95 without cartridge or £5.95 with cartridge. 
Cheques or POs to: 
STENROY LIMITED 
310 Finchley Road, Hampstead, London NW3 6EH 


JOYSTICKS FOR OL 


Plugs straight into control port 1 or 2. 
NEEDS NO INTERFACE OR ADAPTOR — £7.99 each or £15 for two. 


Add 50p p&p. 

Two joysticks plus CONCENTRATION (an addictive 1-4 player game) on 
microdrive cartridge for only £23.95 inclusive. Game only: £10.95 inclusive. 
Send to: COMPUTER SUPPLIES 
146 Church Road, Boston, Lincs. PE21 0JX. 


AD INDEX 


Classified 
Compugen 
Compuser 


Digital Precision 
Eidersoft 


Four Systems 

Medic Data Systems 
Metacomco 
Microdeal 

Miracle Systems Ltd 
Printerland 

Silicon Express 
Strong Computers Ltd 
Talent Computers 
Tandata Ltd 
Technology Research Ltd 
Total Computability 
Transform Ltd 


Supp=between pages 28 & 29 
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QCOoODE 


REDVIEW COMMUNICATIONS 


Specialist suppliers of QL systems for the 
corporate, business and educational user 


OLIVETTI 
Personal Computer Authorised Dealer 


Roseberry, Red Shute Hill, Hermitage 
Newbury, Berkshire RG16 9QW 
Tel: 0635 200491 


PRESTEL 


MICRONET MODAPTOR enables QL to be used with almost any 


1200/75 or 300/300 Modern, includes software for 
access to PRESTEL, MICRONET and Bulletin Boards, etc ................ £39.90 
FOUR GAMES on one microdrive cartridge (2 M/c code) — 

Sprite Shoot, Lander, Moon Landing, Wall-up..................ccc0eeeees be, 
ASSEMBLER/FULL SCREEN EDITOR with fast M/c linker 


VT52 


Please send me: 

eivieeeass Modaptors with Software @ £39.90 

oes oes Games Cartridge @ £4.95 

NORE Assembler/Editors @ £12.95 
Cheques payable to QCODE 


QCODE, 42 Swinburne Road, Abingdon, Oxon 0X14 2HD Tel: 0235 28359 


curry computer 
Your Complete QL Stockist 
Hardware, Software, Peripherals, 


Printers, Books, Magazines, Accessories 
5344 W. Banff Lane @ Glendale, AZ 85306 U.S.A. 
1-602-978-2902 @ Telex (via WUI): 6501267701 

DEALER INQUIRIES WELCOME 


AT LAST! A SOFTWARE CONTROLLED 
MICRODRIVE CLEANING SYSTEM FOR THE QL 


Microdrives continuously build up dirt and static. That's why ULTRASOFT have develop QCLEAN. It comprises 

driving software on microdrive and a cleaning cartridge which looks like an ordinary cartridge. 

* Removes dust, tar, nicotine, smoke, etc, from the entire tape path 

* The cleaning cartridge comprises a highly specialised, non-abrasive tape 

* The software controls the microdrive motor at just the right speed that it demagnetises the tape heads and the 
entire microdrive tape path 

* Using QCLEAN regularly will ensure your MDVs are kept at peak performance 

* The software also contains pages of information on how to take care of your microdrives and cartridges plus 
other tips. Instructions also supplied 

ONLY £19.95 (all inclusive) 


Same day despatch from UTLRASOFT 43 Preston Way, Monk Bretton, Barnsley, South Yorkshire 


or sheer good looks, superb design and 
high performance there is nothing to touch 
the Sinclair Vision QL colour monitor. 


Developed in conjunction with Sinclair 
Research, this beautifully compact unit with its 
12” non-glare tube, 85 column text display and 
high resolution colour graphics is the perfect 
partner to the Sinclair QL computer. Comes 
complete with lead and connector for instant 
use with the QL. 


Take a closer look and you'll see that it also 
represents amazing value for money. 


You'll find the brilliant Sinclair Vision QL at 


your local dealer, supplied exclusively by DDL. 
The data distribution company with a product 
range that is second to none. 


Ring us on Ascot (0990) 28921 for the name 
of your nearest dealer. 


Then you can call in and see for yourself 
what makes the Sinclair Vision QL colour 
monitor such a well-designed little performer. 


5 Kings Ride Park, 
Ascot, Berks. SL5 8BP 
Tel: 0990 28921 
— = Telex: 846303 DD LTDG. 


THE NEW FORCE IN DISTRIBUTION 


QL User/November 1985/55 


_ Nowyoucancreatenew _ 
dimensions in Computer Graphics. 


t | 
| 


since |") 


Create superb colour pictures on your @ User definable paint brush — any colour 
QL with TALENT’s outstanding new graphics or width @ Colour list for full control @ Re- 
packacge. It’s supplied on two microdrives — colour facility e Magnification with panning 
the first holds the master program and a e Mirroring and rotation of blocks of screen 
printer dump utility, the second, three e Air-brush effect @ On-line ‘help’ facility 
demonstration pictures. Backup copies can e Full file-store access @ Printer dump utility. 
be made. GRAPHIQL comes with a detailed, Text can be included in pictures. The 
clearly-written 60 page Instruction manual, characters can be single or double height 
outlining the program's many facilities. with flash and underline. GRAPHIQL pictures 
@ Freehand drawing, 8 colours, optional flash canbe putinto BASIC or assembler programs 
® Rubber banding, rubber boxes, evenrubber — with the sample routines provided. 
circles and ellipses @ Variable size texture Available from selected branches of 


finition @ ‘ iths. 
definition ® Doodle pad aA SY, Fae Boots & WH Smiths 


> = 
@ Colour and texture fil T £34.95 + 50p 
of any shaped area Hi Te ccEN postage & packing 
COMP ER SySlevis 


Curran Building, 101 St James Road, Glasgow G4 ONS. Tel: 041-552 2128 (24 hour credit card hot-line) Software from Scotland 
QL and Microdrive are registered trade marks of Sinclair Research Ltd. 
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The Extendin 


Abacus transforms the QL into 
a powerful but easy to use 
number crunching machine. It 
does this by providing the user 
with a grid measuring 64 rows 
by 255 columns. At every 
intersection of a row and 
column is a ‘cell’ which can 
contain either numerals, text or 
formulae and which may be 
linked up to any other cellina 
variety of ways. In theory this 
means that the program can 
juggle a massive 16320 
different sets of figures 
simultaneously. In practice, 
with only 22K of memory 
(version 2.00) set aside (on an 
unexpanded QL) the figure 
works out at somewhere 
between 600-1000 sets. Even 
then this is sufficient for most 
complex analyses. 

DE ESS 


Single Entry 

Entering one-off items onto the 

spreadsheet is quite simple. 

1. Position the cursor using the 
cursor keys at the 
appropriate cell you wish to 
fill 

2. Type ina value which 
displays on the input line at 
the foot of the screen. If text 
is to be entered precede 


your entry with * ( (quotes) ie 
“Month1. 
Whilst a line is being entered 
it may be edited using 
combinations of the cursor 
keys allied with [CTRL] and 
[SHIFT]. (cf Quick reference 
chart) 

3. When the entry is complete 
press [ENTER] and the 
values or characters typed 
will appear in the cell where 
the cursor is located. 

If any problems are 
encountered entering an item 
simply press [ESC] to abort the 
process and try again. 


Amending an Entry 

Once an item has been entered 
it may be amended by 
positioning the cursor over the 
target cell and either 
overwriting the contents or 
pressing [F3+A] whereupon 
the input line will fill with the 
existing contents of that cell 
which may then be edited using 
the cursor keys. 


Deleting Entries 

The contents of a cell or range 
of cells may be erased using 
the RUBOUT command 
[F3+R]. The range of cells to 
be deleted is defined using the 


2 i C : a 
Softco Budget Exercise 1904 


January February March April 


148.78 


eet 


smc 


147.74 
% 83 


SL.7L 


verrmnec na 


155.42 
198.83 


4.29 


91.46 
49.25 
3.67 
2.98 
3.28 


3.67 
2.08 
9.43 


3.67 
2.8 


readsheet 


top left hand cell reference of a 
block followed by the bottom 
right hand reference. For 
example instead of using 
[F3+Z] to delete the entire grid 
you could use [F3+R] and 
specify the range as A1:BL255. 
If no range is specified then 
only the current cell will be 
emptied. 

It is very important to use the 
rubout feature instead of simply 
entering a zero or blank as in 
the latter case the cell remains 
active with memory reserved 
for it. : 
Se ae ee | 
Simple Formulae 
Entering figures ona 
spreadsheet isn't much use 
unless we can manipulate 
them. Fortunately, Abacus 
provides a wealth of functions 
for such a purpose. 


SUMming Up 

The function SUM is used to 
add up contents of columns (or 
rows) on the grid. It can be 
employed in a variety of ways. 
One of the simplest is to 
position the cursor at the foot of 
acolumn, C9 in Fig 1, and 
enter: 


FIGURE 1 


aah H B 
Mi Nonthly 
2} Estimate 
3} 
41 Rates 
ai © Gas 
6iElectricity 
7; Telephone 
8} 
91 Total 
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ee H D H E 
Month Manth2 Month3 
actual actual actual 

320.45 320,45 320,45 
129,34 117.32 109,97 
74,54 109,84 120,34 
20L.22 98,97 134,45 


after you have pressed ENTER 
you will be required to specify 
where in the column Abacus is 
to start its summation FROM 
and up TO which point it is to 
continue. In fig 1 the entire 
command would appear as 
follows _ 

sum(col) ... FROM4TO7 


As Abacus is capable of using 
text on the grid as a reference 
(provided that it is unique) we 
could simplify our command to: 


sum(Month1) ... FROM 
4707 


In our example spreadsheet, 
you could repeat the method 
for Month2 etc. However, all the 
columns can be added up in 
one fell swoop if we position the 
cursor at B9 and enter: 


row=sum(col) ... FROM 
4T07 
FROMBTON 


You may wonder why we have 
included columns B, and F to N 
in our calculations. The reason 
for this is that when we come to 
insert values over the range 4 to 
7 in these columns the 
spreadsheet will tot them up 
without our having to issue any 
further commands. Until such 
values are added it may be an 
idea to tidy up the spreadsheet 
by blanking out zeros. To do 
this press [F3+D+B]. 


AVEraging 

Turning our attention to column 
B (“Monthly Estimate). Let us 
assume that we wish to fill this 
with the average of all previous 
months. Then positioning the 
cursor at B4 we could enter: 


ave(rates) ... FROMCTON 


However, as we are going to 
apply this averaging formula to 
all four rows, a more efficient 
way of doing so would be (with 
the cursor at F4): 
col=ave(row) ... FROM 


FROM 4TO7 
Our spreadsheet will now 
appear as Figure 2. 


“What If” Analysis 
If you now insert figures for, say 
“month4”, in column F the 
month's total will automatically 
display in cell E9 and the 
"Monthly estimate” will be 
recalculated averaging out 
over 4 periods instead of three. 
A similar ‘ripple’ effect will 
occur if any of the existing 
figures for rates, gas etc are 
amended. This feature, 
common to most spreadsheets, 
provides an extraordinarily 
powerful analytical tool, 
allowing the user to quickly 
gauge the impact of a minor 
change upon a complex whole. 


Design and order of 
calculation 

Careful thought should go into 
working out the structure of a 
spreadsheet especially in. 
placement of columns and 
rows. It is good practice to 
enter text first (ie labels and 
headings), then work out your 
formulae and last of all enter 
your figures. 

An important consideration 
when determining what goes 
where on a spreadsheet is the 
order of calculation. Abacus 
will calculate rows (from left to 
right) and then columns (from 
top to bottom) unless instructed 
to do otherwise [F3+D+C]. 
Failure to take order into 
account can result in some 
surprising results as we shall 
see when we expand our 
example spreadsheet. A good 
rule of thumb for those 
inexperienced in Abacus 
programming is to issue an 
(extra) Xecute command 
[F3+X]. This will perform any 


calculations missed in the first 
pass. 


Splitting Image 

When a spreadsheet expands 
to fill the entire screen it is often 
useful to split it in two so that, 
for example, labels and 
headings continue to display 
providing a useful guide for 
input. Also, as both parts of the 
split screen remains active 
used to monitor changes in 
important areas of the sheet 
obviating the need to 
constantly jump back and forth 
from one area to the next. To do 
this with the spreadsheet in Fig 
2, position the cursor at C1 and 
press [F3+W+V+T]. You 
should now find it very much 
easier to enter figures for later 
months and also monitor how 
the estimate monthly figures 
vary. 


Tidying Up 
It is a good idea at this stage to 
tidy our spreadsheet up (see 
Fig 3). Using F5 to position the 
cursor at the desired cell enter 
the following formulae: 


Cell Formula Range 
C1 row=month 
(col()—2) CtoN 


This will fill out C1:CN with 
actual month names. Col() 
returns values from the grid’s 
border column (ie 1 to 255). 


Cell Formula Range 
F2 row= 
“forecast” CtoN 


Repeat the string “forecast” 
across remainder of range. 


Cell — Formula Range 
B3 and row=rept(“=”, 
B10 _width()) BioN 


f B H C renal ) E 

li Monthly Month! Month2 Manth3 
2! Estimate actual actual actual 
3} 

4; Rates 320.45 320,45 320,45 320,45 
5!) Gas 118,84 129,34 117.32 109.87 
biElectricity 101.57 74,54 109.84 120.34 
7i Telephone 144.99 201,22 99.97 134.45 
81 

9: Total 685.75 425555 646.58 685, 11 
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FIGURE 3 


Double underline. Here the 
width() returns the cells width 
and will cope with cells of 


differing width. 

Cell Formula Range 

B8 row=rept(“—”, . 
width()) BioN 


Also to improve readability of 
the spreadsheet it may be an 
idea to alter justification, 
centering text 
[F3+J+[ENTER]+C] and 
change over to monetary units 
[F8+U+[ENTER]+M]. So that 
subsequent entries will be 
similarly affected we repeat the 
previous commands this time 
altering the ‘default’ settings. (A 
default is merely something that 
is preset for convenience). 


Saving a spreadsheet 

To save a spreadsheet simply 
press [F3+S] and then specify 
a device and filename. (ie 
mdv1_fig3). In common with 
standard conventions on the 
QL file names should be no 
longer than seven characters in 
length, contain no symbols or 
spaces and begin with a letter 
of the alphabet. 


i A ites ema es tie De Wee ASE 1 § 
\i Monthly danuary February March Aprii May 
2} Estimate actual actual actual 
3} Sseeceee Seeasas= cascase= Sas=a=== 
4} Rates = £320.45 £320.45 £520.45 £320.45 
Si Gas £118.84 £129.34 £117.32 £109,987 
6sElectrici £101.57 £74.54 £109.84 £120,354 
7iTelephone £144.98 £201.22 £99.97 £134.45 
8} 

91 Total £695.75 £725.55 £646.58 £685.11 
0} ESssrsss sssasss= sssssss= 


Relative or Absolute 
Returning to our example 
spreadsheet. Let us assume 
that we've just got wind of the 
following information effective 
April onwards: 


“Telephone bills to 
increase by 10% monthly” 

“Electricity to rise by 12.5% 
monthly” 

“Gas to decrease by 10% 
monthly” 

“Rates to increase by 30% 
in April and remain fixed 
thereafter” 

Taking March as our base we 
can implement these forecasts 
as follows: 


Cell Formula Range 
F7 row=tel. 

mar*1.1 FtoN 
F6 row=ele. 

mar*1.125 FtoN 
1) row=gas. 

mar*9 FtoN 
F4 row=$rates. 

mar*1.3 FtoN 


In all but the last entry the 
forecasts have been calculated 
relative to the cell immediately 
preceding it. This relationship 


iueeett ie! towne oak: 
August SeptemberOctober November December 
forecast forecast forecast forecast forecast forecast forecast forecast forecast 


dune duly 


applies when ECHOing or 
COPYing formulae into other 
cells as well. Indeed, Abacus 
assumes that all cell references 
are relative unless the 
reference is preceded by a 

$ (dollar sign). 


Forced Calculation 

In the course of entering the 
above forecasts you should 
have become aware of a 
problem with the “Monthly 
Estimates”. That, upon entering 
each formulae, the estimated 
monthly figure reflects the total 
for the first four periods divided 
by twelve instead of the 
average annual figure (ie 
114.83 instead of 392.55 for 
est.rates). 

This, of course, is the 
notorious order of calculation 
error which was mentioned 
early. Here it may be cured by 
issuing an XECUTE command 
which recalculates the grid. 
During planning this error could 
have been avoided by 
positioning the monthly 
estimates column after the 
December period on the grid. 


ters.“ cig aulees 


—<aomee es Semen awe eeeeeees eee eween eseeses= SeSEtsss ZEZZSZEESI ZEZZZrI= ZZZaz==== 
SESSSSSS SSSSSSS SSSSSSSS SSSSSSSS SSSSSSSHS SSSSSSSS SSSSSSSS SSSSSSSS SSSSSSSS SSSass== 


MIN and MAX 

In our final version of the 
spreadsheet (Fig 4) we extract 
from our table of expenditure 
the highest and lowest monthly 
figures and those for a single 
expenses. These are easily 
obtained using the functions 
min and max: 


Cell Formulae 
?  MAX(C9:N9) 


? MIN(C9:N9) 

2 MAX(B4:N7) 

2? MIN(B4:N7) 
Printing 


To print out a spreadsheet 
simply press [F3+P]. After this 
you can choose between 
printing values or formulae. The 
latter (Fig 5) is indispensable 
for checking the sheet’s 
workings. 

Because spreadsheets tend 
to span more than a single 
page it is often desirable to 
print them in a condensed 
typeface so as to squeeze 
more rows on to a page. 
Alternative typefaces can either 
be set outside the Abacus 
using Psion’s install program or 


FIGURE 4 


Monthly January February 
actual 


Estimate actual 


Rates = £392.55 

Gas £80.19 
Electrici £195.46 
Telephone £203.58 


£320.45 
£129, 34 

£74.94 
£201, 22 


£117.32 £109.87 
£109.84 £120.34 


March April May 


£320.45 £416.59 
£98.88 
£135.38 


£147.90 


£416.59 
£98.99 
£152.51 


£134.45 £162.68 


actual forecast forecast forecast 


June July 


forecast forecast 
£416.59 
£80.10 
£171.34 
£178.95 


£416.59 

£72.09 
£192.74 
£196.85 


£414.59 

£64,98 
£216.86 
£214.53 


£416.59 

£58.39 
£243.96 
£238.19 


August SeptemberOctober Noveaber Deceaber 
forecast forecast 


forecast forecast 
£416.59 £416.59 
£47, 30 
£308.77 £347.36 
£288, 21 


£416.59 

£52.95 
£274.46 
£262.01 


Total 


Largest monthly Payment 
Smallest monthly Payment 
Largest single Payment 
Smallest single payment 
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Paege owe Re apscr ele wt Sick Hie P= = hee (GG aN Hee ame) fel teeRAL, Oat ok ta aN 

1 F24 F24 F264 F26 F264 F24 F26 F26 F26 F26 F26 F26 

2 

3 Fil Fil Fit Fil Fil Fil Fil Fil Fil Fil Fil Fil Fil 

4} Fg F72 F72 F72 F72 F72 F72 F72 F72 F72 

5! Fg F70 F70 F70 F70 F70 F70 F70 F70 F70 

bi Fg Fa? Fao F49 Fao F69 Fé? F69 F49 Fag 

7 Fg F47 F47 F47 Fa7 F47 Fé7 Fé7 Fa7 Fé7 

Bt F40 FAO 40 FAQ FAG FAQ F40 FAQ F40 F40 F4Q FAD FAQ 

y Fi2 Fi2 2 Fi2 Fi2 F12 Fi2 Fi2 Fi2 Fi2 F412 F12 Fi2 
10! FS3 FSS FSS F53 FSS F53 FSS FSS FSS FSS FS3 FSS F53 

Mi 

121 F73 
13} F77 

141 F78 
151 F79 
internally by imbedding printer readability. Text should be which slots into B3 and takes Fa = save(Cl+LIR0+0]:Cl+12)RL+0)) 
control codes within a cell. centre justified and the width in the form: Fil srept("=",width{)) 
aren dal ia Aol ies eu ibis to is the askn(‘Gross Income”) ds ue 
cell will be in the new typeface. longest description (ie F ; . smonth(col ()- 
All such codes foul Be “uneetiied Rober surplus”). ae e eee ed F4O srept("-",width()) 
preceded by chr(0). For Disregard any text that appears pave ip entera cairn Be n F53 srept("=",width()) 
example, for an EPSON FX in cells D14 and E15. cell. Feamee into efencac Fo7 :CC-1IRC+0]#1.1 
printer: Moving on, we can now enter oe as is heed ined F469 sCE-1IRE+01#1. 125 
Entry Result whenever an Xecute command F70 :CL-11R(+0]#0.9 
chr(0)+chr(14) Enlarged Mode [F3+X] is issued. ASKN will F72 :$E4#1,3 
chr(0)+chr(15) Condensed Mode only accept numeric input. If F73 max (CL-1IR0-3)sC0+10IRE-31) 
chr(0)+chr(18) Pica (normal) mode you want text entered thenuse F77_ :min{CL-1IRL-4):CL+10IR¢-4)) 
Boe ccna. Puls oT ASKT. F78 :max (CE-21RE-10):CC+10IRE-72) 

r chr chr mphasised o i iti saintCl-27RE-1 1): 2 

chr(0)+chr(27)+chr'71) Double strike on Seely ate nein | F9 sainsck BINT rer eHOIRC-@) 


possible to build up intricate 
chr(0)+chr(27)+chr(72) Double strike off spreadsheets and yetexpect __ that they have been told to 
lf codes are tobe imbedded the formulae which underpin somebody unacquainted with press [F3+X].) 


then the spreadsheet shouldbe the calculations carried outon Abacus to be able to use them The F20 and F21 are similar 
printed without a boundary the grid. The first of these is F35 (Fig 7). (Provided, of course, ASKN constructions. F19 may 
surrounding it (Fig 4). 
Furthermore if an alternative 
typeface is used remember to ' A | B ! c ! D ! E 
alter the spreadsheets design i ; 
Raccommodate ihe aaa 1iPersonal Tax Calculation Tax Rate Salary 
characters. For example, if ?|\ sassesessessssessssszss= SSSSSSssssessss ssssssssssssses 
ee pone 3 Gross Salary 23000, 00 0.00% 9.00 
Bee eee Schedule D 7568.00 - 30.00% 3000.00 
160. a Unearned Incone 5478.00 40.00% 11750.00 
ee 30.00% 14300.00 
Complex Functions i Gross Incore 36246,00 39.00% 17200.00 
eae anumber of 8} Less:Allowances 3000.00 60.00% 21000.00 
advanced functionstocaterfor Ff eee nn nnn 65.00% 25000.00 
SDE Cie sed Cus Nietaneee> 191 Se tagubier Meta 33246, 00 70.00% 35000. 00 
The simplified Personal Tax eS DUe BYALA Paes ES eel 
calculation in Fig Gillustrates a 5 ETT ani asi 
few of these. If you followed the {21 
previous example the 13) Tax 21609.90 Conclusion: You need an accountant 
ale ey le beeasy!0 14! Unearned Incone Surplus 101.70 

First, enter allheadings and 151 Less:PAYE paid 13800. 00 
labels. Formulas F3, F7, F14, 16) eh oe ate wetewesa enn 
F24, F25, F30 and F34 are used ! 
to provide the underlining and a Tax Payable ees eases 
generally improve the grid’s ag? eae oh igre 
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appear strange, however, this 
is nothing more than: 
sum(col) ... FROM 
BOS 


When formulae are printed they 
are expressed in relation to the 
cell in which they have been 
entered. Here what the formula 
sum(C[+0]R[—4]:C[+ 0]R[—2]) 
says is ‘Start adding up from 
the cell that lies zero columns to 
the right and four rows up from 
here up to and including the 
cell zero columns to the right 
and two rows up’. In other 
words sum the contents of cells 
over the range B3 (ie 7—4) to 
B5 (7—2). Note that negative 
values indicate columns to the 
left or rows above the formula 
cell. Whilst Positive values 
indicate columns to the right 
and rows below the formula 
cell. 

If you understand this 
notation, you should then have 
no trouble in entering the 
remaining formulae F12, F33, 
F37, F38, F40 and F41. If not, 
then the following may prove 
useful: 

Cell 
(F12) B10 
(F41) B17 


Entry 

B7-B8 
B1i3+B14—B15 
(F40) B14 if((B5>5000), 
B5*15/100,0) 
if((B13>(B10/2), 
“You need an 
accountant”, 
“Pay up”) 


(F37) D13 


(F38) B13 _B10*lookup(D3: 
D10,—1,B10) 
B3*lookup(D3: 


D10,—1,B3) 


(F33) B15 


The IF Function 
The first pair of formulae (F12 & 
F41) require no explanation. 
The second pair (F40 & F37) 
illustrate the use of the 
conditional expression. This 
takes the form 
IF (conditional_expression, 
true, false) 
A conditional expression is a 
test whose result can either be 
true or false. Here, if true, 
whatever comes after the first 
comma will be placed in the 
formula cell. If itis false 
whatever comes after the 
second comma will go in. In 
formula F37 our test is whether 
a person's tax exceeds half his 
income. If it does then the 
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words “You need an 
accountant” will appear in cell 
D13. If not then the message 
“pay up” will appear. 

With formula F40 we check to 
see whether unearned income 
exceeds £5000. If it does then 
the person will be liable to pay 
an extra 15% tax on any income 
above £5000. 


Lookup Tables 
The last two formulae 
demonstrate the use of 
LOOKUP. This takes the form: 
lookup(range, offset,value) 
and combines a variety of 
operations into a single 
function. When passed a value 
which in F33 is the individual’s 
salaried income (B38) and in F33 
is his total taxable income (B10) 
it: 

1. Searches througha 
designated ordered row or 
column for the cell whose 
contents comes closest to but 
does not exceed the value 
passed across. In F33 and F38 
our ordered row is the “Income 
level” table column D defined 
over the range D3:D10. You 
should note that the table is 
arranged in ascending order. 
This is a pre-requisite if the 
function is to work. If you have 
not ordered a column or row 
you may do so using the 
command Order [F3+O] 
though it is a good idea to 
isolate those rows or columns 
that are linked to each other 
(ie B & C) from those that are 
not (ie A). This is because the 
command when issued 
re-orders EVERY parallel 
column or row on the grid. 

2. Once the appropriate 
“income level” has been 
ascertained D6 and D8 for F33 
and F38 respectively, lookup 
moves one column to the left (ie 
offset=—1 columns in both 
cases) to the TAX rates column 
and extracts the corresponding 
Tax rate applicable to the level 
of income ie 50% from cell C6 
for F33 and 60% from cell C8 
for F38. 

3. This level of tax is then 
returned by our function lookup 
and is used to calculate “PAYE 
paid” figure in cell B15 and 
“Tax” due in cell B13. 


Scope for Improvement 
Whilst the Personal Tax 
Calculator concludes our 


FIGURE 7 


analysis of Abacus it is by no 
means the end of the story. 
Abacus is an extremely flexible 
and powerful tool. The 
Calculator itself could be 
improved upon. For example, 
by varying personal allowances 
in response to the user's 
circumstances and so on. 

And beyond this there are 
dedicated functions such as 


A ' B 


trept("=" width()) 
trept("="len(Cl+O]RE-1])) 
rCL+OIR(-3]-CL+0)R{-2) 
trept("=",width()) 
ssum(CC+OIRE-4):C£+0IR[-2]) 
raskn("Schedule D income") 
taskn("Unearned income") 
trept("=" width()) 
trept{"-",width()) 
trept("-",width{)) 


F3 


if 


F3 


F37 


HCLHOIRE-12]#lookup(Cl+2IRC-12]:CL£+2IRE-5),-1 ,CL+0IR{-121) 


trept("=",width()) 
taskn("Gross salary") 


rif ((C0-2R0+0]>(C£-2IR0-31/2)), "You need an accountant", "Pay 


tCL+OIR(-3]#lookup (C£+2IRL£-10]:CL£+2IRL-3} ,-1 ,CL+OIRL-3)) 


iF ((CL+OIRE-99) 95000, (CL+0IRL-91-5000) #15/100, 0) 


sCL+OIRE-41+C0+0IR£-3]-CL+0IRL-2] 


Quick Reference Table 
Function Keys 


Load and display help file 


Remove/Recover prompts window 


Commands 


Move cursor between split window 


Go to cell 


Net Present Value and Internal 
Rate of Return tailor made for 
investment analysis. However, 
the great attraction of Abacus is 
that provided the user has 
grasped a few simple 
procedures and concepts, 
everything else comes easy. 
And it is these procedures and 
concepts that have been 
documented here. 


Commands 
[A]Jmend Amend contents of a cell using input line editor 
[Clopy Copy arange of cells from one area to another 
[DJesign — [A]utocalculate— recalculate grid with every entry 
[B]lank — substitutes blank cells for zeros 
[C]alculation —calculate by row or column first? 
Display —TV or monitor? 40,64 or 80 column 
[Florm Feed —new page after specified no lines 
[G]aps — gaps between lines on print out 
[L]ines —no of lines per printed page 
[MJonetary sign— set for £. Can be varied to 
accommodate any character 
[P]rinter Width — characters per line to print out 
[E]cho Copy contents of a single cell to a range of cells 
[Fliles BJackup — make a backup copy of file 
[D]elete — delete file 
E}xport — export to [A]rchive,[E]asel or Quill 
[Flormat — format disk or cartridge 
I]Jmport —importa file 
[G]rid [D]Jelete — by rows, [c]olumns or range of cells 
[I]nsert —by rows or [c]olumns 
[W]idth —change width of one or more columns 
[JJustify Position text or values [I]eft, [right or [c]entre 
[Lload Load a spreadsheet from microdrive or disk 
[M]erge Merge another spreadsheet. Contents similar cells 
added or [s]ubtracted from current grid 
[O]rder Sort the rows in a grid into ascending order based 
upon the contents of one particular column. Applies 
to text and values but will mess up formulae. 
[P]rint Print out range of cells giving values or formulae 
[Quit Terminate Abacus and return to SuperBasic 
[R]ubout Delete contents of cell or range of cells 
[Slave Save current spreadsheet to disk or drive 
[U]nits [C]ells _—change the format of existing cells 
[D]efault— change format for cells yet to be used 
Formats are: 
[D]ecimal — specify no of places 
[E]xponent — ie 99.99E+99° 
[PJercent —ie 99.99% 
[I]nteger —whole numbers 
[G]eneral — Automatically selects 
format to make best 
possible use of available 
cell space 
[Window _ [V]ertical— split grid vertically into two windows 
[H]Jorizontal split 
[T]ogether —split windows to scroll as one 
[S]eparately — Hold one window fixed while other 
scrolls 
[JJoin windows together 
[X]ecute Recalculate all formulae on grid (see [D]esign) 
[Z]ap Clear the grid 


Standard Mathematical Functions 


ABS(n) Absolute value of n 

ATN (n) Angle whose tangent is n (radians throughout) 
COS(n) Cosine of angle nin radians 

DEG(n) Converts nradians into degrees © 

EXP(n) e (approx 2.718) raised to the power of n 
INT(n) Rounds n down to the nearest whole number 
LN(n) ° Natural (base e) logarithm of nie LOGe N 
PI() Supplies the value of the constant pi 

RAD(n) Converts n degrees into radians 

SGN(n) Returns +1,—1 or zero if nis >1,<1 or 0 
SIN(n) Sine of angle n (in radians) 

SQR(n) Square root of n 

TAN(n) Tangent of angle n(in radians) 
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General Functions 


CHR(n) ASCII character whose code is n 
CODE(“text”) Code for 1st character string 
DATE(n) Date as a string whose format varies 
where: n=O —> yyyy/mm/dd 
n=1 —>dd/mm/yyyy 
n=3 -—> mm/dd/yy 


DAYS(“yyyy/mm/dad”) Number of days from 1st Jan 1583 
INSTR(“main”,“sub”) Position of the first occurrence of the 
substring in the main string. If not 
found returns 0 

Length of string in characters 

Month as a string ie Jan, Feb etc 
Replicates the 1st character ntimes 
Converts number n into a string: 
type=0 —> decimal format 

type=1 —> exponential 

type=2 —> integer 

type=3 —> general 

dp= no of decimal points 

Current time as a string —> hh:mm:ss 
Attempts to coerce string into anumber 


LEN(“text’) 
MONTH(n) 
REPT(“text’, 1) 
STR(n, type, dp) 


TIME() 
VAL(“text) 


Grid Functions 


AVE(range) Average of values with range of cells 
COL() Cursor’s current column position 
COUNT(range) Counts number of occupied cells 
INDEX(col, row) Extract contents from specified cell 


LOOKUP(range, offset,n) Relates a portion of a row (or column) 
whose values are arranged in 
ascending order to asecond parallel 
row (or column). Locates the cell in 
first row whose value is closest to 
but does not exceed n. It then returns 
the contents of the cell which lines 
up with this in the second row. The 
offset is the distance that separates the 
two rows. 


MAX(range) Largest numeric value within range 
MIN(range) Smallest numeric value within range 
ROW() Cursor’s current row position 
SUM(range) Sum of values across range of cells 
WIDTH() Gives width of current column 


Programmable Functions 

ASKN(“text’) Prompt for a numeric entry 

ASKT(‘“text”) Prompt for a text or numeric entry 

IF(expr, true, false) Conditional expression is evaluated 
and depending on the result a ‘true’ or 
‘false’ expression is evaluated anda 
value returned. Arguments may be cell 
references, strings or numeric 
expressions. 


Financial Functions 

IRR(range, period) Calculate the Internal Rate of Return 

over a range of values where the unit 

interval or period is one month 

NPV(range, %'ge,period) Calculates Net Present Value over a 
range of values where %'‘geis the 
annual interest rate. 


Line Editing Keys 

< Move oncharacters to the left 
— Move one character to the right 
t Move to the beginning of line 

| Move to the end of line 


QL User Owner’s Manual/7 


INTERFACES/EXPANSION DISK DRIVES 


MAR-MAY, 
AUG & OCT 85: 


APRIL 85: 
Hardware on the Horizon || 
JUN 85: 


Hardware on the 


Driving in 4 Dimensions Horizon I-V 


HARD 


MA 
Business o 
SEF 
System ' 


BOOKS 


FEB 85 ONWARDS: 
Bookmarks 


MAR 85: 
QL Plus 
APR 85: 
Mind Your Own Business SOFT! 
JUN 85: 
Digital Precision 
SEP 
Soft Li 
OCT 
Spectrum C 


PROGRAMMING 


FEB 85: 
Cursing Recursion 
SEP 85: 
String Manipulation 
AUG 85: 
Computer Allsorts 


TYPE—IT-IN LANGUAGES LP SS TEGAMES eee UTILITIES 
FEB 85: MAR—JUN 85: 
Machine Code Starter APR—JUN 85: Tonmpi a epaistor 


MAR—AUG 85: : f 
Machine Code Tutorial Games Programming Boeer 
SEP 8 
MAR 85: 


FEB 85 ONWARDS: 
The Progs 


JUL 85: 
Sound & Vision 


5: r ‘ 
; Trooping the Colour 
Shes Shenk JUN 85 ONWARDS: 
Graphics on Display 


Secret Locations 
OCT 85: 


ROMblings 
JUL 85: 
Articulating with Archive 
MAY 85 ONWARDS: 
Al on the OL 
FEB 85 ONWARDS: 
C Series 


Where to go from here — a guide to articles and information contained in 
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PRINTERS 


FEB 85: 


MONITORS 


Printer Impressions JUN 85: 
ee a josie Monochrome Monitors 
SEP 85: 
Dipping In 


f 85: 
ir Pleasure 


Variables 


COMMUNICATIONS 


AUG 85: 
Telecommunications 
FEB & MAR 85 
Satellite Stations 


EDUCATION 


JUL & AUG 85: 
QL at School 


onnections 


FEATURES/REVIEWS 


JUN 85: 
Software File 


LANGUAGES re SRE UTILITIES 


MAY 85: 
Computer One Monitor 
MAY 85: 


APR 85: 
Psion 2.00 
MAY 85: 

Cash Trader 

JUN 85: 


APR 85: 
Computer One Assembler 
AUG 85: 
The Perfect Alternative OS 
OCT 85: 
SuperBasic Compilation 


QL Toolkit 
APR 85: 
Talented Graphics 


Triptych Trio 
JUL 85: 


Integrated Accounts 


Sporting Scene 


previous editions of QL User and covering just about every conceivable QL application, for beginners through to 68000 machine code programmers. 
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QL USER SPECIAL OFFER | EQUATE: 


THE EQUATION 
PROCES SUK 


EQUATE is for anyone who wants to solve a problem which can be 
expressed mathematically. Even if you cannot state your problem as 
an equation, in most cases EQUATE can do this for you. 

Examples provided get you started quickly, and enable you to apply 
EQUATE to your own problems. 

PROFESSIONAL USERS will save time, and have more confidence 
= in their answers. 


Hi-res graphs ensure that wild initial guesses are not required, even 
for the most complicated of equations. 


. Features of EQUATE: Equation solving — polynomial and linear 
simultaneous. Differentiation, Integration, Curve fitting of 
experimental data. Graphing, Graph magnification, Windoing. 
Import & Export using Archive, Abacus and Easel. Hi-Res screen 
dump to printer. Equation editing. 


. 


A Professional 


Fic UTE 


To order, send a cheque, postal order or your Access or Visa card nuniber to 


Flite Software Ltd., P.O. Box 302, Glasgow G12 9HO. 
Telephone Order 24 hour HOT LINE on 010 353 74 21255 


High Resolution 
Colour Monitor for 
the Sinclair QL 


A leaflet giving further detailed information about EQUATE is available from 
Flite Software at the above address. Please send a stamped, addressed envelope. 


at an INCREDIBLY 


low £229-99 


This incredible offer of just £229.99 is a ys Se (= Vo 
SAVING £70 on genuinesaving of £700n nonral retail price but a ae WEIS 
“normal price — = = onl apply ie orders received before : A 
jecember ist, ' 
normal price Toorderby postsimply fillin the coupon KO EE 
If you have ever contemplated buying a below and send to Compuser Ltd., Monitor ; 


Colour Monitor to fully exploitthe graphics + Offer, King Henry's Drive, New Addington, 
capabilities of the Sindair QL then this is an Croydon, aay CR9 0BG or telephone (0689) 


unrepeatable offer you can’t affordto miss! 46116 and pay by credit card. 


The Compuser 700 Series is no ordinary The price is inclusive of VAT, cables'and a Fed up with backing up OL microdrive 
Hachiobs it'sal . poe Hi h Beaton full val guarantee, but excludes carriage cartridges? 

Colour Monitor designed especially to which is an extra £12.50 for a 14 day courier ‘ A . . 
compatible with QL385 character display. service delivery. It s not so much doing it but the time 
Compuser have incorporated the very Specification it takes ... At least five minutes ... 
latest circuit design with alow component CRT 7 Long enough to have a cup of coffee!! 
teen aerate I higher performance and ae aS aa 5 : 
increased reliability. ROUnCE H i H 

= geet arent Op eae tice VideoBandwidth 0MHz Now available, a superfast OL microdrive 
light transmission characteristics and an Display 85 Charactersby25 Lines copier from TOTAL COMPUTABILITY. 
internally-etched anti-glare black stripe screen | VideoInput R.G.B/TTLInput 5 % 
offering both a high contrast and high | DotPitch 0.42mm ® Can copy in under a minute 
resolution graphics display in a wide range of Controls On/Off Switch. Brightness @ Copy speed independant of number of 
lighting conditions. &Contrast Control files and file size 
Ifyou feel you're being blinded by Degaussing Automaticat SwitchOn @ Simple t 
science, check the specification and compareit (“yy aincsuppl 00-250v & 100-125v A ol ae be eke - 3 
with other Professional quality monitors — st) ‘ACSO/60H2 © By-passes QDOS file handling and 
‘you'llibeamazed. accesses microdrives directly 
pie ee ar oe eee Rg ee ee SS | @ Written in 68000 machine code 
- TO:Compuser Ltd., Monitor Offer, King Henry's Drive, New Addington, Croydon, e F 
Surrey CR OBG. Tel: (0689) 46116 Onty esis Hest p Stain VN) 

Please send me_____High Resolution Monitor(s) at £229.99 each 240y LJ 

(inc VAT) plus £12.50 CARRIAGE total Cost £242.49 Tov fe | 

lenclosea cheque forf£______ or please debit my Access/Bar¢laycard 

Account No. with theamountof£_ = 

QL microdrive & QDOS are trade marks of Sinclair Research Ltd. 
| Nanezsaee S Aadr | 
TelNo MAIL ORDER ONLY 
| | | Please send cheque/PO 
@ ry) | & = J oi TOTAL COMPUTABILITY 

LL —SS— 5555 SS SS —E- — PO BOX 10, BRIGHTON BN2 2TZ 
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BASIC SUPERBA 


ee The Language 


The belief that programs are 
written entirely from scratch is 
misplaced. Most programs are 
an amalgam of pre-written 
generalised routines stitched 
together with some original 
code to serve a particular 
function or application. Access 
to a ‘library’ of such routines 
saves the programmer from 
having to literally re-invent the 
wheel everytime he embarks 
upon a new project and 
significantly reduce the time it 
takes to produce a fully tested 
working program. : 

Traditionally the various 
dialects of BASIC found on 
micros, with their heavy 
reliance upon line numbers to 
control the flow, has meant that 
self-contained library routines 
are difficult to put together and 
even more difficult to 
incorporate into a program. 
This explains why program 
generators, often cumbersome 
and inflexible, have found 
favour amongst software 
developers using this 
language. 

The structured.nature of 
SuperBasic changes all this. 
DEFineable PROCedures 
which are called by name (as 
opposed to line number), allow 
data to be passed across to 
them as parameters and yet are 
capable of processing it in 
isolation using variables 
declared LOCal to the 
procedure. It is these 
procedures that will go to make 
up our library. 


Creating 


Procedures 

A procedure is defined as 

follows: 

DEFine PROCedure name 
(parameter list) 

LOCal variable list 


END DEFine 


The keywords DEFine 
PROCedure, LOCal and END 
DEFine may be abbreviated to 
DEF PROC, LOC and END DEF. 
DEF PROC marks the start of 
the procedure and is followed 
by the procedure name. When 
used at the start of any 
statement within a program, 
this name triggers off the 
procedure’s execution. 

The procedure name must 
be unique and should not 
correspond to a SuperBasic 
keyword. It must begin with a 
letter but thereafter it may 
contain any combination of 
letters, numbers and 
underscores 
([SHIFT+hyphen]). Spaces 
and symbols should be 
scrupulously avoided. 

The parameter list is made 
up of variables separated by 
commas. These may be string, 
numeric or integer, are used to 
store data explicitly passed to 
the procedure and exist only 
whilst the procedure is being 
executed. Data is explicitly 
passed to a procedure by 
following the call (a statement 
containing the procedure 
name) with a list of numbers, 
strings and variables not 
enclosed in brackets. This is 
known as the argument list. It 
must hold the same number of 
elements as the parameter list 
and the sequence in which the 
different data types appear 
must be identical. 

Parameter list variables exist 
only whilst a procedure 
executes and are unaffected by 
and have no effect upon 
similarly named variables 
created outside the procedure. 
However, where the procedure 
calls itself either directly or 
indirectly via another 
procedure, parameter list 
variables may change. 

LOCal is used to declare any 
variables used exclusively by 
the procedure. Any values or 
strings assigned to them must 
be assigned within the body of 


the procedure. More 
importantly, however, not only 
do LOCal variables exist in 
complete isolation from outside 
but also from within. They are 
‘call-specific’ so that if the 
procedure calls itself then a 
new set of LOCal variables 
come into being to act for that 
call and will exist in isolation 
from the calling procedures’ set 
of LOCal variables. When a 
procedure terminates (ie, upon 
encountering RETURN or END 
DEFINE) the set of local 
variables particular to the call 
that triggered off the 
procedure’s execution will 
cease to exist. 

Obviously if a routine is to be 
self-contained only LOCal or 
parameter list variables should 
be used. This, for a variety of 
reasons, is often not possible. 
So where a procedure makes 
use of an external variable, 
accesses an element in an 
array or incorporates a 
procedure call of its own, this 
should be documented at the 
start of the procedure using 
REM statements so that the 


person using the library knows 
exactly what to supply. 

The END DEF statement 
marks the end of the 
procedure. When encountered 
it causes the procedure to stop 
executing and returns control to 
the statement immediately 
succeeding the procedure call. 
A RETurn statement also 
causes the procedure to 
terminate but unlike END DEF 
can occur anywhere within the 
procedure (Note. The 
parameter list, LOC and 
RETurn are all optional and may 
be omitted). 

An example of a simple 
procedure would be: 

100 DEF PROC prompt 
110 CLS: PRINT “Hello” 
120 END DEF prompt 
If you now call the procedure 
by entering 

prompt[ENTER] 
The screen or rather the portion 
of the screen occupied by the 
QL’s default window (channel 
#1) will clear and the word 
“Hello” will display. If you type 
LIST you will see that the 
procedure continues to be 
stored in memory and may be 
EDITed. A more complex 
version of the procedure is 
shown in Listing 1. 

The revised version of our 
procedure when called is 


LISTING 1 


100 prompt "Hi-there",0,5,80 


110 prompt " This is the OL",1,20,40 
120 a$= "an example of a procedure” 


130 channel %=2 
140 verticalz=20 
150 horizontal 4=40 


140 prompt a$,channeli,vertical%,horizontal% 


170 STOP 


180 DEFine PROCedure prompt (prompt$,chani,vert%,ho 


rizh) 
190 LOCal x_post,y_posd 
200 CLS #chani 


210 x_pos4=(horiz%-LEN(prompt$)) /2 


220 y_post=vert%/2 


230 AT #chand,y_pos%,x_pos4 


240 PRINT #chan%,proapt$ 
250 END DEFine prompt 
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passed a string, channel 
number and the dimensions of 
the window linked to the 
channel. Armed with this 
information the procedure will 
clear any screen and then 
display the prompt at its centre. 
Lines 100 to 170 demonstrates 
how the procedure may be 
used. 

Note that whilst procedures 
are called by name, we still 
have to preceed each line with 
a line number otherwise the 
QL’s SuperBasic interpreter will 
not acknowledge its presence 
within a program. Every line 
number must be unique and 
unless the flow of control within 
a program has been explicitly 
redirected elsewhere (ie, using 
a procedure call) then lines will 
be executed in ascending 
order until a STOP is 
encountered. 


i ie DS aca a 2 aT al 
Tooling up 


If the prompt procedure is to 
constitute the first routine in our 
library we need to work out a 
way in which it may be filed 
away and then inserted into any 
program along with other 
routines. For this we need to 
come to grips with the 
commands RENUM, SAVE and 
MERGE. 

The RENUM command takes 
the form: 

RENUM start TO finish; first, 
interval 

Here you may to specify the 
start and finish of the portion of 
the program to be renumbered, 
the first line from which you 
wish to count off from and the 
interval between one line 
number and the next. The QL 
will not allow RENUM to be 
used to transfer portions of 
code from one area of a 
program to another. Whilst the 
actual line numbers may be 
changed their position relative 
to others in the program listing 
must remain the same. 

If start, finish, first and interval 
are omitted the QL will assume 
their values to be: 

start —> [start of program] 
finish —> [end of program] 
first = 100 
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LISTING 2 


30000 REMark ##* prompt ### 


30010 DEFine PROCedure prompt (prompt$,chan%,vertz, 


horizz) 
30020 LOCal x_posd,y_pos% 
30030 CLS #chand 


30040 x_posd=(horiz%-LEN(prompt$)) /2 


30050 y_posd=vert%/2 

30060 AT #chand,y_posz,x_posd 
30070 PRINT #chand,proapt$ 
30080 END DEFine proapt 


interval  =10 

The SAVE command takes the 
form: 

SAVE device — filename, start 
TO finish 

Rules governing the naming of 
files are similar to those for 
procedures and whilst they 
may be of any length the QL will 
only distinguish the first 8 
characters. Common device 
names are ‘mdv’ for 
microdrives, ‘flp’ or ‘fdk’ for 
disks and ‘ram’for extra 
memory. Default values for start 
and finish are identical to those 
that apply to RENUM. 

The MERGE command takes 
the form: 

MERGE device_filename 
and allows programs or 
routines to be joined together. 
Where duplicate line numbers 
occur, those within the program 
being merged will overwrite 
those in the program currently. 
loaded in memory. 


eS ee 
Modus Operandi 


The convention we will adopt 
for our library is to RENUMber 
each procedure, once it has 
been fully tested, from line 
30000 onwards and then save it 
to a microdrive cartridge or disk 
using the procedure name as a 
file name. In this way, when it 
comes to incorporating a library 
routine into a program we need 
only merge it and then RENUM 
so that the routine is shuffled 
down leaving room for another 
to be merged in, and so on. 
This method will work in almost 
every circumstance excepting 
where programs are longer 
than 29999 lines or the routines 


exceed 2767 lines — both of 
which are very unlikely. 
We can now install our first 
routine on the library cartridge. 
First, enter RENUM 180;30000 
so that the procedure prompt 
looks something like Listing 2. 
Now save the routine to your 
library cartridge using: 

SAVE mdv1_prompt,30000 to 

30080 


General input 

Most programs require some 
information of the persons 
using them. As only the few 
QLs running version JS of 
QDOS have any built-in error 
trapping, information typed in 
at the QL’s keyboard is usually 
stored in a string variable using 
the INPUT command. The 
general input routine in Listing 
3should satisfy most 
requirements. 


30000 REMark ### gen_in ### 


Dealing first with the 
parameters. The string /Zis 
used to pass across and 
display any previously entered 
input ready for amendment. If 
the operator does not enter 
anything the previous input will 
be carried forward to be stored 
in the variable temp$ (more on 
this later). If there has been no 
previous input then a row of 
underscores will display, 
equivalent in length to the 
maximum size of the string 
expected which is passed 
across by s. The remaining 
parameters are simply 
(c)hannel number and x and y 
co-ordinates of the input line. 

The next point of interest is in 
the use of the variable temp$. 
This is used to store the actual 
input. It is an external variable 
and so may be accessed 
outside the program. As we use 
temp$ thoughout our library to 
pass information out of a 
procedure it is advisable that 
the contents of temp$ are 
stored somewhere safe 
immediately after the 
procedure has executed. 

Another point to note is that 
the input routine makes use of 
the procedure prompt which 
we developed earlier and will 
not work unless it is also 
incorporated into a program. 
Any procedure may call 
another and even call itself. 

(Continued on p.15) 


30010 REMark Procedure calls: prompt 
30020 REMark External variables: temp$ =returns in 


put program 


30030 DEFine PROCedure gen_in(i$,5,c,x,y) 


30040 REPeat g entry 


30050 = teap$=i$ 

30060 IF i$="" THEN temp$=FILL$("_",s) 
30070 AT fcyy,xsCLS #c,4sPRINT #c, temps 
30080 AT fic,y,xsINPUT fc, temps 

30090 IF teap$="" THEN teap$=i$ 

30100 IF LEN(temp$)<s+1 THEN EXIT g_entry 
30110 


30120 END REPeat o_entry 


prompt “Too long try again",1,20,80 


30130 AT fc,y,xsCLS #c,4sPRINT ac, temps 


30140 END DEFine gen_in 


TReIKE ORM LTD, Computer Accessories 


Microdrive Storage Box 


e Fully interlocking e Holds 20 cartridges + index cards 
© MicrodhiveiBoxge 25.5... eae $495 
| e Microdrive Box + 10 blank cartridges . . $22.45 
| 


e Microdrive Box + 20 blank cartridges. . $39.95 
e Blank cartridges ............. Se ae £1.95 
OOO DUSi CCVaS ean. 4h ik cs eRe oe £5.00 
@ Spectrum Monochrome Monitor Connector . . . $11:50 
e Spectrum RGB Interface .............. £45.00 


Disc Storage Boxes 


3%2" Disc Storage Box Holds 25 discs....... £9.20 ; £9 20 
51%" Disc Storage Box Holds 50 discs. ..... $13.90 


BOXcof,10'31/5S/SiGISCS ns As ceptoeus lertes £30.00 
BOXTOMO V4" S/SIGISCS, fe hn. tan es oe $27.60 


Pe Available from W.H. Smiths, 
John Menzies & Spectrum Stores. 


TRANSFORM LTD. (Dept@l) 089 283 4783 


Lucks Lane, Paddock Wood, Kent TNI2 6QL 


The Ultimate Arcade QL User 
Challenge for which you Exclusive 
need: only 


@ Deadly accuracy 

@ Split second timing 

@ Lightning reactions 
and 

@ Weeks of intensive 
training 


Mail order address 
13 Amblerthorne, Birkenshaw, 
Bradford, West Yorkshire 


Supercast machine code action 


pa a SO TAI a Sara 
— 20 levels of play, no two levels Please send me a copy of MASTER 
the same - 100% machine code repaid og 


cha ‘ $ E for£_____inc. p&p and VAT, 
— vivid and imaginative ERE et ror 


graphics — complex multiframe Name 
animation — joystick compatible Address 


COMPUGEM LTD =o (mre 


Please allow 14 days delivery 
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TWO MICRODRIVE TOOLKITS 


Read and write microdrive sectors from Basic or assembly language 
programs 

QL MICRODRIVE TOOLKIT (Basic extensions).............:::00000 £9.99 
Adds six functions to Basic allowing read/write/verify of microdrive 
sectors, reading of medium names and ‘“‘fingerprint’ from sector 
headers, and includes a repeat format routine. An eight-page manual 
explains the functions, details microdrive format and uses example 
programs supplied on microdrive. 

QL ASSEMBLY LANGUAGE MICRODRIVE TOOLKIT (Source 
COE) cic: ccasccovceutcusadanrsteccusccstetecsesleteteacascacsssocnsncssonsuctssnensensisenc £29.99 
Over 1,000 lines of fully commented assembly language source code to 
a set of routines equivalent to the above, but with some additions. An 
eight-page manual explains microdrive format and how to implement a 
copy protection scheme as well as QDOS-like routine definitions. 
BOTH THE ABOVE TOOLKITS ON ONE MICRODRIVE............ £34.99 


MEDIC DATASYSTEMS DISK DRIVES 


EXTRA RAM 1 DISK DRIVE 2 DISK DRIVES 
- £249 £399 
256K £359 £509 
512K £449 £595 


The above systems use 3%” 720K Mitsubishi drives, include 
parallel printer interface, RAM disk software in ROM, and the 
following additional free software: M-DESK, M-BASE, M- 
ACCOUNTS, M-KEY, M-SQUEEZE, M-SPELL, M-MERGE, M- 
BOOT, M-TRANSFER and M-COPY. 

DISCOUNTS Hurry . . . deduct £10 on orders less than £350, 
or £20 on orders more than £350 — offer applies only to orders 
received before end ‘October 1985. 

We sell a range of equally competitive products for the QL 
and offer FREE advice. Write or telephone for details. 


PRICES INCLUDE VAT AND DELIVERY 


CNWMIPIAAL cremecwiisa 


Tel: Crewe (0270) 582301 


— — 


MIRACLE SYSTEMS 


— 14 day money back guarantee on all products — 
— 12 month warranty on all products — 


QL CENTRONICS PRINTER INTERFACE £29.95 
* Complete unit including 3 metre cable 
* Plugs into either SER] or SER2 


QL SERIAL CABLE.............: Senetine Srsadayaneeeranes: £7.50 
* 3 metre cable 
QL JOYSTICK ADAPTOR.........cccssssssccsssensees £4.99 


* Lets Atari/Commodore/Spectrum joysticks plug into 
CTL ports 


QL SCREEN DUMIP. .......sccssss0000ss capienieinseantanawn £4.99 

%* Copies whole or part of screen to Epson compatible 
printer 

QL DOUBLE EXPANDER. ......:ccssccsssscssseseees £39.00 


* Connects both RAM and DISK to QL 

(Not necessary for MIRACLE EXPANDERAM) 
QL MODAPTOR uw cccsssssesssssssctresserssssctstsenses &99,00 
* Links QL to 300/300, 1200/75, 1200/1200 modem 


OL MOUSE Szicicsasstessisttiscxststestvensccchens (Please call) 
QL EXPANDERAM 256......cccssesssscsesscssssserees £95.00 
* 256K RAM with through connector for DISK I/F 

QL EXPANDERAM 512.....ccccscccccccccssecesenens £125.00 
* 512K RAM with through connector for DISK I/F 
MIRACLE SYSTEMS LTD Please send CWO. 
AVONDALE WORKSHOPS Access orders welcomed. 
WOODLAND WAY Send SAE for catalogue. 
enero” SINCLAIR and QL are trade 
BRISTOL marks of Sinclair Research Ltd 
BS15 1QL Tel: (0272) 603871 Ext 210 


ORDERED TODAY - 
DELIVERED TOMORROW ad 
aes 


WITH ALL PRINTERS: QL USERS PRINTERS GUIDE - Getting the best from your printer is not easy 


Free. We supply a free booklet with all printers which explains how to obtain all the features available on your 
printer. Without this you could waste many hours. Buy elsewhere and you'll pay far more and get far less. 


@ DOT MATRIX EX VAT INC VAT 
SHINWA CP A80 £165-00 £189-75 
EPSON FX80 F/T+ £361-10 
EPSON FX100 F/T+ £488-75 


@ DOT MATRIX PLUS NEAR LETTER QUALITY 


EPSON LX80 NEW £205-00 £235-75 
JUKI 5510 SUPERB VALUE £235-00 £270-25 
CANON 1080A £235-00 £276-00 


CANON 1156 or KAGA 910 


£335-00 £385-25 


@ DAISY WHEEL 
QUENDATA 1120 £225-00 £258-75 
JUKI 6100 £325-00 £373-75 
EPSON DX100 SPECIAL OFFER £356-00 £409-40 


& COLOUR PRINTERS 
EPSON JX-80 SPECIAL OFFER £450-00 £517-50 
CANON PJ41080A £425.00 £488-75 


@ PRINTER INTERFACES 
_ MIRACLE SYSTEMS 


£26-05 £29.95 


COMPLETE PACK 


SPECIAL OFFER WITH EPSON LX80 £619-00 


WITH CANON 1156 
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& COMPUTERS EX VAT INC VAT 
SINCLAIR QL ONLY £334-00 £199-00 


@ DISC DRIVES 

We stock and use ALL drives and interfaces available including MEDIC, 
COMPUTAMAIE and MICRO PERIPHERALS. 

For helpful impartial advice and best prices contact us. 


Prices include power supply and interface. 

MICRO PERIPHERALS 

31/," SINGLE DRIVE SYSTEM (.75 MBYTE) £241-00 £277.15 
31/,” DUAL DRIVE SYSTEM (1.5 MBYTE) £365-00 £419-75 
COMPUTAMATE 

5%," SINGLE DRIVE SYSTEM (.75 MBYTE) £290-00 £333-50 
5%,” DUAL DRIVE SYSTEM (1.5 MBYTE) £399-00 £458-58 
MEDIC: PRICES ON APPLICATION. 

@ TYPEWRITER PRINTER COMBINED 

JUKI 2200 £245-00 £281-75 
@ MONITOR 

PHILIPS 7502 GREEN £75-00 86-25 
MICROVITEC CUB 1451/653 $220-00 £253-00 


@ RAM EXPANSION BOARDS 
i PCML 250K £150-00 5172-50 


Package includes: SINCLAIRE QL, MICROVITEC CUB563, PRINTER & ALL LEADS AND INTERFACES 
£891-25 WITH CANON 1080 £652-00 £933-80 
£842-00 £1035-00 OTHER PRINTERS ON REQUEST aiahe 


DR | NTERL Although mainly mail order. our offices are open 9am to 5-306mM Mon-Fri and Yam to 1pm Saturday Callers 
A i ) welcome fo; demonstration collection 
Unit 27 Estate Buildings, Railway Street, Huddersfield HD4 1JP. Tel. 0484 514105 512037 


DELIVERY-PRINTERS MONITORS (SECURICOR) £10-00 Other £1-00 


The SuperBasic INPUT 
command will only work 
provided a channel has been 
OPENed to the console device 
(ie, the keyboard). Channel 0 is 
opened this way by default. 
Other channels require the 
command: 

OPEN #channel_no,con_ 
The short program in Listing 4 
will demonstrate gen_inin 
action provided, of course, that 
you have remembered to 
RENUMber and MERGE in 
prompt from the library. 

Quite simply the program 
asks fora name of up to 15 
characters in length and 
compares it with the string 
“RUMPELSTILTSKIN”. If no 
match occurs it redisplays the 
previous entry for amendment. 
The == operator means that 
the comparison will not fail if the 
wrong case is used (ie, it will 
accept normal letters as well as 
capitals). 


Your menu 

Our next library routine (Listing 
5) amply demonstrates the 
power of procedures. It permits 
us to set up Menus anywhere 
within a program with a simple 
call. 

The routine requires that a 
three dimensional string array 
called option$ is set up prior to 
the procedure call (ie, DIM 
option$(x, y,Z)). The size of the 
array will depend on the 
number of different menus 
required (x), the number of 
lines that will fit the particular 
window in which the menu will 
display (y) and the number of 
letters which will print to the line 


(z). The program's only external 
variable temp returns the menu 
option selected by the user as 
the numeric value that 
corresponds to that option y 
subscript within the array 
option$. 

The parameters for the 
procedure are relatively 
straightforward. Cis the 
channel number linked to which 
menu window is chosen. 
menu_no holds the x subscript 
value and determines which 
menu will display. Options will 
determine how many options 
the user will be able to choose 
from. Clearly neither menu_no 
nor options may exceed the 
array size. 

The procedure also 
demonstrates one way of 
detecting whether a key has 
been pressed. This is achieved 
by imbedding the command 
INKEY(—1), which causes the 
QL to wait until a key has been 
pressed, within a repeat loop. 
When a key has been pressed 
INKEY returns the character 
code for the particular key 
pressed. By comparing this 
against the code for a desired 
key we can determine whether 
to repeat the instruction or exit 
from the loop. 

In menu's case we only exit If 
the code returned matches the 
code for the [ENTER] key. 
However, if the UP or DOWN 
keys are pressed then the value 
of loop is decreased or 
increased respectively. Loop 
determines which option is 
highlighted and its value 
parallels the particular option’s 
x subscript value. In effect 
loop's keeping track of two ° 


LISTING 4 


5 REMark QL Fairytale 
10 OPEN #2,con_ 
20 CLS:PAPER #2,0 


25 prompt “What is ay name ?",0,5,80 


30 gen_in “",15,2,2,2 
40 REPeat loop 
50 
60 gen_in temp$,15,2,2,2 
70 END REPeat loop 


IF temp$=="RUMPELSTILTSKIN" THEN EXIT loop 


75 prompt “correct 111*40,5,80 


80 STOP 
100 REMark ### gen_in ### 
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LISTING 5 


30000 REMAark 448442444 menu FEELEEEAHESERE 


30010 REMark calls: none 


30020 REMark external variables: option${) ,aen_sel 
30030 DEFine PROCedure menu (c,menu_no,options) 


30040 LOCal loop, key 


30050 CLS #csINK #c,O:STRIP #c,7 
30060 FOR loop= options TO 1 STEP -1 


30070 
30080 


30090 END FOR loop 
30100 REPeat men_sel 


30110 key =CODE(INKEYS$(-1)) 
30120 IF key=216 OR key=208 
30130 


,option$(menu_no,loop) 
30140 


IF loop=i:INK #c,7:STRIP #c,OsEND IF 
AT #c,loop,3:PRINT #c,option$(menu_no,loop 


STRIP #c,7:INK#c,OsAT #c,loop,SsPRINT #c 


IF key=208 THEN loop=loop-! 


30150 IF key=216 THEN loop=loop+! 

30160 IF loop<! THEN loop=options 

30170 IF loop>options THEN loop=1 

30180 STRIP #c,OsINK #c,7:AT #c,loop,3sPRINT # 
c,option$(menu_no, loop) 

30190 END IF 

30200 IF key=10 THEN EXIT men_sel 


30210 END REPeat men_sel 


30220 temp=loop:PAPER #c,7:INK#c,0 


30230 END DEFine menu 


different things simultaneously, 
this saves on memory and 
makes for greater efficiency, it 
does, however, mean that the 
code is alittle harder to read. 

It's also worth noting that 
loop is, as it were, a ‘second 
hand’ variable first used in the 
FOR loop in line 30060. As it 
saves memory it is a good idea 
to re-use old variable or arrays 
when they are no longer 
needed. 

Menu may be tested using 
the program in Listing 6. 

The FOR loop here is used to 


place a string in each of the ten 
options in the first menu of the 
array. The options themselves 
merely contain the repetition of 
the option number generated 
using the FILL$ command. This 
is purely arbitrary. lf the array 
was to hold meaningful data we 
would probably use the READ 
command to extract information 
stored on DATA lines within the 
body of the program. If this is 
the case it is always good 
practice to tell the computer 
where the first line containing 
the DATA is located using the 


LISTING 6 


100 OPEN #1,scr_ 
110 DIM option$(10,10,20) 
120 FOR 1=1 TO 10 


130 option$(1,1)=FILL$ (1,20) 


140 END FOR 1 
150 menu 1,1,10 


140 PRINT #0,"option"!tenp!"chosen" 


170 STOP 
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LISTING 7 LISTING 9 


100 OPEN #1,scr_ 

110 DIM option$(5,5,20) 

120 RESTORE 2000 

130 FOR outer_loop=1 TO 5 
140 FOR inner_loop=i TO 5 
150 
160 END FOR inner_loop 
170 END FOR outer_loop 
180 menu 1,1,5 

190 REPeat forever 

200 = aenu 1,temp,5 

210 END REPeat forever 
220 STOP 


READ option${outer_loop,inner_loop) 


2000 DATA “Monday”, "Tuesday", "Wednesday", "Thursda 


y", "Friday" 


2010 DATA “bananas”, "oranges", "melons","lemons","b 


ells’ 


2020 DATA “Parsnip","carrot","lettuce"”,"onion","ga 


rlic® 


2030 DATA "SuperBasic",*Pascal", "FORTRAN" ,"C", "BCP 


fee 


2040 DATA "RAN", "ROM", "CPU", "ALU", "IPA" 


RESTORE line_no command. 
The method is illustrated in 
Listing 7. 

The program here will go on 
forever as the REPeat loop has 
no EXIT. Also of interest is the 
nested FOR loop construction 
which enables each menus’ 
option to be READ ina 
consistent and easily 
understood fashion. For every 
pass through the outer_loop, 
the inner_loop goes round five 
times. 


Introducing 


files 
If menu options are to be 
changed frequently then the 
best way of storing the 
information is not on a DATA 
line but in a data file on 
microdrive or disk. We can 
rewrite our previous example to 
deal with the file options stored 
on microdrive 1 as in Listing 8. 
All that we have to do here is 
OPEN a channel (for input —line 
120) to the file and then read 
information in from it using the 
INPUT command linked to that 
channel (line 150). When we've 
finished we close down the 
channel. This, program 
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however, is useless without one 
which will enable us to create 
and amend the menu options 
file. This is given in Listing 9 
along with a short explanation 
of what it does. (In part IIl we 
will examine the various 
techniques introduced here in 
greater detail). 

The program asks if menu 
options are to be amended or 
created. If they are to be 
amended it will open a channel 


LISTING 8 


100 OPEN #1,scr_ 

110 DIM option$(5,5,20) 

120 OPEN_IN #4,advi_options 
130 FOR outer_loop=1 10 5 


140 FOR inner_loop=! 10 5 
150 
140 END FOR inner_loop 


170 END FOR outer_loop 
175 CLOSE $4 

180 menu 1,1,5 

190 REPeat forever 

200 = menu 1,temp,o 
210 END REPeat forever 
220 STOP 


INPUT #4, option$(outer_loop,inner_loop) 


100 DIM option$(5,5,20) 

110 prompt "Create or amend file [C/A1",1,5,40 
120 REPeat choice 

130 gen_in "",1,0,2,2 

140 IF teap$=="C" OR temp$=="A" THEN EXIT chaice 
140 END REPeat choice 

170 IF temp$="A" THEN process 1:ELSE process 0 
180 STOP 

185 REMark ####* process ####E 

190 DEFine PROCedure process(flaq) 

195 LOCal kkk 

200 OPEN_NEW #5,new options 

210 IF flag THEN OPEN_IN #4,mdvi1_options 


220 «FOR k=1 105 

230 FOR kk=1 10 5 

240 prompt "Nenu "&k& ” option "&kk,1,20,80 
250 IF flag THEN INPUT #4, option$(k,kk) 
240 gen_in option#{k, kk) ,20,0,20,40 
270 aption$(k,kk)=temp$ 

280 END FOR kk 

290 END FOR k 

300 IF flag 

310 = CLOSE #4 

320. DELETE advil_optians 

330 END IF 


340 COPY mdvi_new options 10 advi_options 
350 DELETE advi_options 
340 END DEFine process 


to an existing file called options the gen_in library procedure. 
(on mdv1) and read in the data Whether amended or 

from it using the INPUT unamended this information is 
command. Atthe same time it read into our option$ array and 
opens a separate channel to an then saved to new options. 
entirely new file called new When all five options on all five 
options. As the information is menus have been dealt with we 
read in the user has the close new_options and then 
opportunity to amend it using options. We then delete the 
now out of date original options 
file and create a new one by 
simply copying across 
new_options. Once we have 
done this we delete 
new_options in readiness for 
the next time amendments 
have to be made. 

If new options are to be 
created from scratch, the 
process is the same except that 
we dispense with the options 
file altogether — it is never 
opened, read closed or 
deleted. 


Did you miss Volume I 
of the QL Owner’s 
Manual? Then ring 


01-251 6222 and 
ask for QL User 
Backnumbers 


